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Sehr geehrte, liebe Leserin! 

Sehr geehrter, lieber Leser! 

Sehr geehrte, liebe Programmiererin! 

Sehr geehrter, lieber Programmierer! 

Sie halten das Buch 'BASIC Programme' in Händen und wollen sich 
vielleicht erst einmal ein schnelles Urteil Uber dieses Buch 
erlauben. Dazu haben Sie sicherlich einen Blick ins Inhaltsver¬ 
zeichnis geworfen ... gut so ... und nun wollen Sie noch schnell 
die Anrede überfliegen ... und dann geht es ab ins stille Käm¬ 
merlein zum Programmieren bzw. zum Programm eintippen in den 
Schneider CPC464!? 

Lassen Sie mich bitte trotzdem noch für ein paar Worte zur 
Sprache kommen, bevor es richtig losgeht. 

Hinter dieser Programmsammlung steckt ein anderes Konzept als 
man vielleicht auf den ersten Blick ahnen könnte. Diese Pro- 
graramsammlung besteht nämlich nicht nur aus Programmen, nein 
auch aus über vierzig Seiten Text. Nicht daß mir die Programme 
ausgegangen wären oder mir die Ideen fehlten (würde ich gleich 
alles veröffentlichen, hätte dieses Buch knapp 400 Seiten!), 
nein, Sie sollen meiner Meinung nach nicht nur einfach tippen, 
tippen und nochmals tippen ... nein. Sie sollen auch etwas über 
Ihren CPC dazulernen. 

Zwar ist nicht Programmzeile für Zeile genauestens erklärt, 
dafür fehlt der Platz und vielleicht auch Ihre Ausdauer. Aber 
auf interessante Details wird im Vortext hingewiesen, und zum 
großen Teil sind die Programme ja auch noch mit REM-Zeilen zur 
Erläuterng angefüllt. 

Auch inhaltlich liegt der Schwerpunkt mehr auf der nützlichen 
Anwendungsseite, sei es, daß Sie Musik, Grafik oder Text editie¬ 
ren wollen, sei es, daß Sie planen können, Ihre Schallplatten 
oder die Bundesligaergebnisse gemeinsam mit dem CPC zu verwal¬ 
ten. Schließlich liegt noch ein weiterer Schwerpunkt in dieser 
Programmsammlung: Sie sollen ein klein wenig davon einen Ein¬ 
druck bekommen, wie Ihr CPC 'innerlich' arbeitet. Programme wie 
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'Disassembler' und ’Variablenrefernzliste' sind nur zwei Bei- 
spiele dafür. 

Auf jeden Fall, und lassen Sie mich damit schließen, sollen Sie 
Spaß daran verspüren, in die geheimnisvolle Welt der Computer 
und des CPC im besonderen immer tiefer einzudringen und viel¬ 
leicht sogar durch die Programmsammlung selbst zum kleinen Pro- 
graramierer aufzusteigen. 


Noch einmal: Viel Freude und viel Spaß an der Arbeit mit diesem 
DATA BECKER-Buch wünscht Ihnen der Autor von Programmen und Text 



Speicher 1 


Schauen wir uns das Resultat dieses Programms am Bildschirm an, 
so stellen wir fest, daß der Speicher, dessen Inhalt wir mit dem 
Befehl 'PEEK* abfragen nicht überall leer ■ "0* ist. 

Zwar erscheinen auf dem Bildschirm nur anscheinend wirre Zahlen, 
jedoch werden wir gleich feststellen, daß sich hinter diesen 
zum Teil sinnvolle Buchstaben und Zeichen verbergen. 
Hierzu ein Experiment: 

Geben Sie folgendes in Ihren CPC ein: "PRINT ASC( ,, ! ,, ) , (ENTER) 
Ergebnis: 33. Das heißt: Hinter dem Ausrufungszeichen verbirgt 
sich für den Computer die Zahl 33. Probieren wir es andersherum: 
Geben Sie ein: "PRINT CHR$(33)' (ENTER) 

Ergebnis: '!". Damit haben wir den Computer dazu aufgefordert, 

die Zahl 33 wieder in ein Zeichen umzuwandeln. Das Ergebnis von 
Zahl 33 ist unser Ausrufungszeichen! 

So können wir nun auch unser Zahlenmeer aus Programm Speicher 1 
zu deuten lernen. Geben Sie zur Überprüfung gleich anschließend 
bitte das Programm "Speicher 2" ein. 


Hinweis zum Gebrauch von Programm "Speicher 1": 

Anfangs- und Endspeicheradresse sollten nicht weiter als 150 
Zeichen auseinander1iegen; so bekommen wir in der Darstel¬ 
lungsweise alle gewünschten Daten auf eine Bildschirmseite. 
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10 REM Untersuchung des Speichers 1 
20 REM CPC464 Basic Programme 
30 REM Copyright 1984 DATA BECKER & 

Rainer Lueers 

40 INK 0,1a INK 1,24s INK 2, 1,24s et tekt=2: 

normal=l 

50 MODE 1 

60 REM Darstellungsraum eingrenzen 

70 INPUT "Antangsadresse eingeben ";a 

80 INPUT "Endadresse eingeben ";e 

90 IF e<a OR e>65535 OR a<0 OR a>65535 T 

HEN GDSUB 210s GOTO 50 

100 PRINT 

110 REM Ausgabe des Speieherinhalts im 

eingegrenzten Darstellungsraum durch 
Zahlen 

120 FOR n=a TO e 
130 PRINT PEEK <n); 

140 NEXT n 
150 PRINT 
160 PRINT 

170 INPUT "Wollen Sie weitere Teile des 
Speichers untersuchen < /N) " 

180 t*=UPPER*(t$> 

190 IF f $< >"N" THEN GOTO 10 
200 END 

210 PEN ettektsPRINTsPRINT TAB(12) "Fals 
che Eingabe!" 

220 PEN normal:GOSUB 230s RETURN 

230 PRINTsPRINT TAB(7) "<Bitte eine Tast 

e druecken>" 

240 t*=INKEY$sIF t$="" THEN GOTO 240 
250 RETURN 
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Speicher 2 


Nachdem Sie dieses Programm abgetippt und es mit 'RUN* gestartet 
haben passiert folgendes: Was auch immer Sie tun, entweder 
passiert überhaupt nichts oder es passiert etwas Unvorhergese¬ 
henes (der Bildschirm wird gelöscht, der Mode wird verändert, 
PEN und PAPER ändern sich ...). Warum dies? 

Wie schon in anderen Programmen dieser Sammlung aufgeführt: Es 
gibt sinnvoll direkt darstellbare Zeichen ( 1 CHR$(32) = Leerzei¬ 
chen bis 'CHR$(126)' - Schlangenlinie bzw. bis 'CHR$(255)' = 
Grafikzeichen), es gibt aber auch andere CHR$-Zeichen, die sich 
nicht so eindeutig im Bild festhalten lassen ( , CHR$(2) 1 = 
Textcursor ausschalten bzw. 'CHR$(7)' « Klingel ertönen lassen - 
Einzelheiten siehe im Handbuch Kapitel 9). 

Also müssen wir noch ein drittes Programm schreiben, um nur die 
Zahlen ale Zeichen auf dem Bildschirm entsprechend darzustellen, 
die in diesem Zusammenhang auch sinnvoll darstellbar sind. Dies 
geschieht nun mit einigen Programmerweiterungen in Programm 
'Speicher 3'. 


Hinweis zum Gebrauch von Programm 'Speicher 2': 


Wenn auf dem Bildschirm nun nichts rechtes mehr zu erkennen ist, 
Sie aber das eingegebene Programm weiterbenutzen wollen, so 
heißt es nun tüfteln: Schlagen Sie Ihr Handbuch Kapitel 9 auf 
und versuchen Sie die entsprechenden Störfaktoren durch Eingabe 
von 'PRINT' und dem entsprechenden *CHR$('-Zeichen zu loeschen. 
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10 REM Untersuchung des Speichers 2 
20 REM CPC464 Basic Programme 
30 REM Copyright 19Q4 DATA BECKER 

Rainer Lueers 

40 INK 0,1:INK 1,24:INK 2,1,24:effekt=2: 

normal=l 

50 MODE 1 

60 REM Darstellungsraum eingrenzen 

70 INPUT "Anfangsadresse eingeben ";a 

80 INPUT "Endadresse eingeben ";e 

90 IF e<a DR e>65535 OR a<0 OR a>65535 T 

HEN GOSUB 210:GOTO 50 

100 PRINT 

110 REM Ausgabe des Spei eherinhalts im 
eingegrenzten Darstellungsraum durch 
Zahlen 

120 FOR n=a TO e 

130 PRINT CHR*(PEEK(n)); 

140 NEXT n 
150 PRINT 
160 PRINT 

170 INPUT "Wollen Sie weitere Teile des 
Speichers untersuchen ( /N) " 

;f* 

180 f*=UPPER$(f*) 

190 IF f$<>"N" THEN GOTO 10 
200 END 

210 PEN effekt:PRINT:PRINT TAB<12) "Fals 
che Eingabe!" 

220 PEN normal:GOSUB 230:RETURN 

230 PRINT:PRINT TAB(7) "<Bitte eine Tast 

e druecken>" 

240 f*=INKEY*:IF f$="" THEN GOTO 240 
250 RETURN 
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Speicher 3 


Mit Eingabe dieses Programms werden gleich zwei Fliegen mit 
einer Klappe geschlagen: Einerseits erscheint die Bildschirmwie¬ 
dergabe des Speicherinhalts nun geordneter (jeweils Anfangs¬ 
adresse, Inhalte der Anfangsadresse und der folgenden sieben 
Bytes sowie CHR$-Ausdruck der acht Bytes, alles zusammen in 
einer Bildschirmzeile), außerdem werden jetzt nur noch die 
sinnvollen , CHR$(* dargestellt (zwischen 32 = Leerzeichen und 
126 = Schlangenlinie). Für 'nicht ohne weiteres sichtbare CHR$ 1 
haben wir einfach 'CHR$(46)' - zur Darstellung herangezogen. 

Sie können wählen: entweder geben Sie die Anfangsadresse ein und 
drücken anschließend lediglich die (ENTER)-Taste; so werden nur 
die Anfangsadresse und die Inhalte der entsprechenden acht Bytes 
samt CHR$-Darstellung ausgedruckt oder um die Speicherinhalte 
auch über eine Zeile hinaus abbilden zu können, gilt es nach dem 
erstmaligen Drücken der (ENTER)-Taotc sofort anschließend (wäh¬ 
rend des Bildschirmaufbaus) irgendeine andere Taste mit Wieder¬ 
holfunktion (z.B. die Leertaste) andauernd niederzudrücken. So 
erscheinen zu je acht Bytes pro Zeile die sich anschließenden 
Speicherinhalte auf dem Monitor. 

Schauen wir uns doch einmal an, wo unser BASIC-Programm 1 Spei¬ 
cher 3* geblieben ist. Beim CPC wie auch bei jedem anderen 
Computer werden Befehle zum Teil nur als einzelne Zahlen = Token 
abgespeichert, hingegen bleiben Worte, die hinter REM-Anweisun- 
gen stehen, vollkommen erhalten. Geben Sie z.B. als Anfangs¬ 
adresse '1008' ein ... rechts im CHR$-Bereich müßten Sie nun das 
Wörtchen 'jeweils 1 entdecken ... schauen wir in das Programmli- 
sting -) siehe Zeile 140: 

*140 REM Die Bildschirmzeile wird mit 
jeweils acht Bytes gefuellt* 

... das funktioniert allerdings nur, wenn Sie 

das Programm Zeile für Zeile genau so wie im Buch abgetippt 
haben, ohne auch nur ein Leerzeichen vergessen zu haben! 
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Geben wir '1008* als Anfangsadresse ein und drücken unverzüglich 
eine Taste mit Wiederholfunktion z.B. die Leertaste, so werden 
uns noch weitere Bestandteile aus unserem Programm 'Speicher 3' 
begegnen. 


Hinweis zum Gebrauch des Programms 'Speicher 3': 


Wie Sie sicherlich bemerkt haben, wird hier als Zahlsystem nicht 
das uns vertraute Dezimalsystem (Zahlen aus 0 bis 9 zusammenge¬ 
setzt) sondern das Hexadezimalsystem (Zahlen aus 0 bis F zusam- 
mengestzt) angewandt. Dies hat folgende Gründe: Einerseits ist 
das Hexadezimalsystem 'das' System der Hacker und Maschinen- 
sprachfreaks ... so wollen wir es hier als 'Speicherdurchfor- 
ster', was gleichbedeutend mit 'Hacker sein soll, auch anwenden! 
Andererseits läßt sich auf 40 Spalten mit dem Dezimalsystem 
nicht so viel Information unterbringen wie mit Hilfe des Hexade¬ 
zimalsystems ('255* Dez. - 'FF* Hex. bzw. '65535* Dez. = 'FFFF* 
Hex.). 

Dezimalumwandlung in Hex läßt sich mit dem CPC sehr leicht mit 
dem Befehl 'HEX$(' in die Tat umsetzen z.B. 'PRINT HEX$(65535) 1 , 
Ergebnis = 'FFFF*. 
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10 REM Untersuchung des Speichers 3 
20 REM Untersuchung des Speichers mit 
PEEK und CHR$ < in uebersichtli- 
eher Form 

30 REM CPC464 Basic Programme 
40 REM Copyright 1984 DATA BECKER St 

Rainer Lueers 

50 INK 0,1s INK 1,24: INK 2,1,24:effekt=2: 
normal=1 
60 KEY DEF 18,1 
70 MÜDE 1 

80 REM Darstellungsraum eingrenzen 
90 INPUT "Anfangsadresse eingeben "; a 
100 IF a<0 OR a>65535 THEN GOSUB 330:GOT 
0 70 

110 at=HEXt<a,4) 

120 REM Die naechsten Zeilen helfen, 

einen optimalen Bi1dschirmaus— 
druck mit 40 Zeichen/Zeile zu 
ermoeglichen 
130 PRINT a*; N "; 

140 REM Die Bildschirmzeile wird mit 
jeweils acht Bytes gefuellt 
150 FÜR z=0 TO 7 

160 zz=PEEK<a+z>:zz*=HEX*<zz,2) 

170 PRINT zzt;" M ; 

180 NEXT z 

190 REM Ausdruck der Charakterstrings 
bei besonderer Beachtung, wenn 
der FEEKwert <32 bzw- >126 ist 
200 FOR z=0 TO 7 
210 zz=a+z 
220 zz=PEEK <zz > 

230 IF zz<32 THEN zz=46 
240 IF zz >126 THEN zz=46 
250 PRINT CHR$<zz>; 

260 NEXT z 
270 PRINT 
280 a=a+8 
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290 a*=INKEY* 

300 IF a*= M " THEN GOTO 90 
310 GOTO 110 
320 END 

330 PEN ef-fekt: PRINT: PRINT TAB (12) "Fals 
che Eingabe! 11 

340 PEN normal:GOSUB 350:RETURN 

350 PRINTsPRINT TAB(7) "<Bitte eine Tast 

e drueckenV 

360 f*=INKEY*:IF f*= M " THEN GOTO 360 
370 RETURN 
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Speicher 4 


Bisher haben wir den Speicher durchsucht und dabei zum Teil nur 
Zahlen (Speicher 1), wirre Zeichen (Speicher 2) oder aber gar 
schließlich beides in geordneter Form auf dem Bildschirm erzeugt 
(Speicher 3), Beim Listing von Speicher 3' konnte im Vergleich 
der linken zur rechten Bildschirmseite deutlich werden, daß 
wahrlich unser BASIC-Programm nur aus Zahlen besteht, die erst 
im Nachhinein wieder vom CPC in Buchstaben und Zeichen umgewan¬ 
delt wurden. 

Hierzu muß man wissen, wie der Computer Daten und Programme 
abspeichert: Um Speicherplatz zu sparen, werden BASIC-Befehle 
nach der Eingabe durch (ENTER) in Abkürzungen umgewandelt, die 
sogenannten Tokens (siehe Anhang), So verbraucht der Befehl 
'PRINT 1 nicht fünf Bytes (da fünf Buchstaben), sondern lediglich 
ein Byte. 

Schreiben wir jedoch in eine REM-Zeile 'PRINT' oder geben in 
eine Programrazeile 'PRINT "PRINT"' ein, so wird das in diesem 
Fall nicht als Befehl zu interpretierende 'PRINT' Buchstabe für 
Buchstabe abgespeichert, d.h. hierzu werden wie zu erwarten fünf 
Speicherplätze = fünf Bytes in unserem CPC benötigt. 

Suchen wir nach dem Vorhandensein irgendwelcher ausgeschriebenen 
Wörter im BASIC-Programm, so kann dies sehr lange dauern, bei 
65535 Speicherplätzen ähnlich einer Suche nach der Stecknadel im 
Heuhaufen. Also müssen wir systematischer vorgehen! 

Das Programm 'Speicher 4' hilft uns dabei erheblich in mehreren 
Stufen weiter. Sie geben ein Wort mit bis zu sechs Buchstaben 
ein und instruieren den Computer, wo er nach diesem Wort im 
Speicher suchen soll. Soll er im ganzen Speicher suchen, dauert 
es - bald - eine Ewigkeit. Soll er in einem begrenzten von Ihnen 
zu bestimmenden Speicherplatzrahmen suchen, dauert es dem¬ 
entsprechend lang oder kurz. Als Ergebnis bekommen Sie in jedem 
dieser beiden Fälle, vorausgesetzt der Suchbegriff läßt sich 
auffinden, die Speicherplatzstelle genannt. Spaßeshalber können 
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Sie dann durch 'POKE' die angegebene Stelle, (kleiner als 127, 
größer als 31) in Ihrem Programm direkt über die entsprechende 
Speicherstelle ändern. Ein Beispiel: 

In Zeile 80 steht das Wörtchen 'Laenge'. Zuerst suchen wir uns 
die entsprechende Speicherstelle heraus. Wie? Programm starten 
mit 'RUN', Zeichen eingeben = 'Laenge' (ENTER), im ganzen Spei¬ 
cher suchen lassen ** 'N' auf die naechste Frage hin eintippen 
(ENTER). Nach kurzer Zeit erscheint auf dem Bildschirm: 'Laenge 
an Speicherstelle 682 gefunden'. Kommt bei Ihnen eine etwas 
andere Zahl heraus, so ist das gar nicht schlimm. Wir nennen die 
gefundene Zahl 'ZAHL' (in unserem Fall 'Zahl' - 682). Schauen 
wir mal nach, was bei 'ZAHL' im Speicher steht: 'PRINT 
PEEK(ZAHL)' (Bitte nicht 'ZAHL' eintippen, sondern die Zahl an 
dieser Stelle verwenden, die Ihr CPC vorhin ausgegeben hat - bei 
mir also: 'PRINT PEEK(682)'). Ergebnis? *76'! Und was bedeutet 
in unserer Sprache die Zahl 76? 'PRINT CHR$(76)' - 'L'! 

Also die Zahl 76 steht für den ersten Buchstaben unseres vorhin 
gesuchten Wortes 'Laenge'. Listen wir Zeile 80, so steht dort 
Laenge . Mit 'POKE ZAHL,andere Zahl als 76' werden wir nun das 
'L' von Laenge in unserem BASIC-Programm z.B. in ein 'G' verwan¬ 
deln. Nur welche Zahl steht beim Computer für den Buchstaben 
'G'? Ganz einfach rauszukriegen über den Befehl 'ASC('. Also: 
'PRINT ASC("G")' = 71. Nun einfach eingeben 'POKE ZAHL,71' und 
anschließend noch einmal Zeile 80 listen -) 'Laenge' wurde zu 
'Gaenge'! 

So kann man ein klein wenig mehr über die Abspeicherung von 
BASIC-Programmen dazulernen und vielleicht dadurch noch einge¬ 
hender die Komplexität eines Computers wie des CPC erahnen 
lernen (BASIC ist wohlgemerkt erst das Endprodukt zahlreicher 
Verknüpfungen). 

Aber noch eine weitere Dimension wird mit dem Programm 'Speicher 
4 erschlossen: Die Abspeicherung der Zeilennummer. Starten Sie 
hierfür noch einmal das Programm mit 'RUN', geben wieder den 
Suchbegriff 'Laenge' (bzw. nun 'Gaenge') ein und lassen im 
P=Programm' danach suchen. Nach kurzer Zeit steht nicht nur die 
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entsprechende Speicherstelle wieder auf dem Bildschirm, nein 
auch die entsprechende Zeilennummer in unserem BASIC-Programm. 

Dieses Errechnen geht verhältnismäßig einfach vor sich ... wenn 
man weiß wie. Jedes CPC-BASIC-Programm beginnt im Normalfall bei 
der Speicherstelle 368. In Speicherstelle 368 und 369 steht die 
Längenangabe der ersten Zeilennummer unseres Programms ('PRINT 
PEEK(368) 1 - 35; 'PRINT PEEK(369)' - 0). Die Errechnung geht 

folgendermaßen vor sich: 'PRINT PEEK(368) + (PEEK(369)*256)' = 

35. Also: die erste Prorammzeile (inkl. Seicherstellen 368 und 
369) ist 35 Bytes lang (daraus kann man schon den Beginn der 
nächsten Programmzeile, die auch über entsprechende Angaben 
verfügt, errechnen). In Speicherstelle 370 und 371 ist die 
Zeilennummer der ersten Programmzeile gespeichert: 'PRINT 

PEEK(370)' - 10; 'PRINT PEEK(371)' =■ 0. Errechnung s.o.: 'PRINT 
PEEK(370) + (PEEK(371)*256)' = 10. Also: die erste Zeile unseres 
Programms 'Speicher 4 1 ist Zeile Nummer 10 und sie ist 35 Bytes 
lang. 

Genau diese Berechnungen führt der CPC immer und immer wieder 
(ab Zeile 160) aus, um uns beim Auffinden des Suchbegriffs auch 
die Zeilennummer anzeigen zu können. 

Nun aber genug der grauen Theorie! Gehen wir zu 'Speicher 5' 
über. 


CLieSge^icht^roelse^SlI 1 !) ? Laenge 

In ch e d er e Ze i ebenf oYge S gesucht S weirden 

< /N=i«ganzen Speicher/P=Progrann) ? v 

Laenge an Speicherstelle 682 gefunden 
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10 REM Untersuchung des Speichers 4 
20 REM Zeichenfolge im Speicher suchen 
30 REM CPC464 Basic Programme 
40 REM Copyright 1984 DATA BECKER & 

Rainer Lueers 

50 INK 0,1:INK 1,24:INK 2,1,24:effekt=2: 

normal=l 

60 MODE 1 

70 REM Eingabe des Suchbegriffs 
80 INPUT "Welche(s) Zeichen suchen Sie 
(Laenge nicht groesser als 6) 

";f* 

90 IF LEN <f$)>6 OR LEN(f*)=0 THEN GOSUB 
540:GOTO 60 
100 PRINT 

110 REM Speicherraum fuer Suche waehlen 
1^.0 INPUT "In welchem Spei eher abschni tt 
1 nach der Zeichenfolge gesucht 

werden ( /N=im ganzen Speieher/P=Pro 

gramm) ";f1$ 

130 f11MJPPER*(f1*) 

140 PRINT 

150 IF flt="N" THEN a=0:e=65535:GOTO 370 
160 IF fl*= u P" THEN a=368:GOTO 180 ELSE 
GOTO 300 

170 REM Suche nach eingegebenem Such¬ 
begriff nur im Programmrahmen; 
wenn gefunden -> Anzeige der 
entsprechenden Zeilennummer 
180 aa=PEEK(a) + <PEEK(a+1)*256):bb=PEEK <a 
+2)+(PEEK <a+3)*256) 

190 FOR n=a TO a+aa 

200 IF CHRt(PEEK(n))=MID*(f $,1,1)THEN k= 
1 

210 IF k=l AND CHR*(PEEK(n+l))=MID*<f2 
,1)THEN k=2 

220 IF k=2 AND CHR$(PEEK(n+2))=MID$ <f3 
,1)THEN k=3 

230 IF k=3 AND CHRt(PEEK<n+3))=MID$ <f4 
,1)THEN k=4 
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240 IF k=4 AND CHR*(PEEK(n+4>)=MID*(f5 
,1)THEN k=5 

250 IF k=5 AND CHR*(PEEK(n+5))=MID*<f* 5 6 
,1)THEN k=6 

260 IF k=LEN(f*) THEN PRINT f " in Zei 1 
e" ;bb; "gef Linden (";n;")" 

270 k=0 
280 NEXT n 

290 a=a+aa:IF aa=0 OR bb=0 THEN GOTO 470 
ELSE GOTO 180 
300 PRINT 

310 REM Darstellungsraum eingrenzen 
320 INPUT "Anfangsadresse ";a 
330 INPUT "Endadresse ";e 

340 IF a>e OR a<0 OR e<0 OR a>65535 OR e 
>65535 THEN GOSUB 540:GOTO 320 
350 PRINT 

360 REM Suche im Speicher von Adresse 

a bis e nach dem Suchbegriff f$ 
370 FOR z=a TO e 

380 IF OHR*(PEEK(z))=MID*(f*,1,1)THEN k= 
1 

390 IF k=l AND CHR*(PEEK(z+1))=MID*(f*,2 
,1> THEN k=2 

400 IF k=2 AND CHR*(PEEK(z+2))=MID*(f3 
3 1)THEN k=3 

410 IF k=3 AND CHR*(PEEK(z+3))=MID*(f*,4 
,1)THEN k=4 

420 IF k=4 AND CHRt(PEEK(z+4))=MIDt(f$,5 
,1)THEN k=5 

430 IF k=5 AND CHR*(PEEK(z+5))=MIDt(f$,6 
,1)THEN k=6 

440 IF k=LEN(f*) THEN PRINT f*;" an Spei 
cherstelle";z;"gefunden" 

450 k=0 
460 NEXT z 
470 PRINT 
480 PRINT 


- 18 - 



490 REM Programmende oder Fortfahren 
500 INPUT "Suchen Sie weitere Zeichen ( 
/N) 

510 f*=UPPER*(f*> 

520 IF ttO-N" THEN GOTO 60 
530 END 

540 PEN ef-fekt: PRINT: PRINT TAB (12) "Fals 
che Eingabe!" 

550 PEN normal:GOSUB 560:RETURN 

560 PRINT:PRINT TAB(7) "<Bitte eine Tast 

e druecken>" 

570 f $=INKEY$: IF f$= ,,n THEN GOTO 570 
580 PRINT:RETURN 
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Speicher 5 


Während wir im Programm 'Speicher 3' jeweils in einer Zeile acht 
Bytes dargestellt haben (hexadezimal und als CHR$-Wert), wird in 
diesem Programm alles übersichtlicher - ein Byte pro Zeile und 
zugleich vielseitiger dargestellt. 

Die Darstellungsformen dezimal und hexadezimal laufen jeweils 
nebeneinander: 

1) Adresse dezimal 

2) Adresse hexadezimal 

3) Inhalt der Adresse dezimal 

4) Inhalt der Adresse hexadezimal 

5) Inhalt der Adresse (wenn darstellbar) als , GHR$(' 

Zu Ihrer eigenen Speicherdurchforstung ist dieses Programm recht 
sinnvoll, denn Sie brauchen nicht immer alles umzurechnen; 
außerdem bietet dieses Programm eine ideale Möglichkeit, die 
Vielzahl der Tokens (siehe Anhang) kennenzulernen (erinnern Sie 
sich noch? Token 13 BASIC-Wort). 

Machen wir einen Versuch: Ergänzen Sie das Programm um Zeile 9: 
'9 PRINT* (ENTER). Wie Sie wissen, beginnt der BASIC- 
Programmspeicher bei Adresse 368. Geben wir also als Anfangs¬ 
adresse '368' ein; der Endwert soll uns egal sein, soll aber in 
jedem Fall größer als die Anfangsadresse sein (druecken wir nur 
(ENTER), so läuft die Speicherabbildung bis Anfangsadresse+2000 
= 2368). Es reicht für unser Experiment, wenn wir uns nur die 
ersten 10 Speicherplätze anzeigen lassen, also Endadresse 378! 
Listen Sie bitte zusätzlich zur Kontrolle Zeile 9 und Zeile 10. 

Kurz zur Deutung des Speicherabbildes: 

Adresse 368: Inhalt 6 (368 und 369 geben die Zeilenlaenge an) 

Adresse 369: Inhalt 0 (Adr.368+(256*Adr.369) = 6 Bytes) 

Adresse 370: Inhalt 9 (370 und 371 geben die Zeilennr. an) 

Adresse 371: Inhalt 0 (Adr.370+(256*Adr.371) = Zeilennr. 9) 

Adresse 372: Inhalt 191 (Tokenwert für den Befehl 'PRINT') 
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Adresse 373: Inhalt 0 (Zeilenende-Anzeige) 

Adresse 374: Inhalt 35 (374 und 375 geben die Zeilenlaenge an) 

Adresse 375: Inhalt 0 (Adr.374+(256*Adr.375) =* 35 Bytes) 

Adresse 376: Inhalt 10 (376 und 377 geben die Zeilennr. an) 

Adresse 377: Inhalt 0 (Adr.376+(256*Adr.377) = Zeilennr. 10) 

Adresse 378: Inhalt 197 (Tokenwert für den Befehl 'REM') 

Interessieren soll uns in diesem Zusammenhang nur Adresse 372. 
Geben Sie bitte einmal 'POKE 372,197' ('197' « Tokenzahl für 
'REM') ein und listen anschließend Zeile 9. Nun steht dort nicht 
mehr wie ursprünglich 'PRINT', dafür aber viel besser 'REM*. Es 
gibt nicht nur Einbyte-('PRINT' = 191, 'REM' = 197)Tokens, es 
gibt auch Zweibytetokens. Aber davon hier nicht mehr. Schauen 
Sie zur Orientierung bitte im Anhang nach! 


368 

0170 

6 

06 

369 

0171 

0 

00 

370 

0172 

9 

09 

371 

0173 

0 

00 

372 

0174 

191 

BF 

373 

0175 

0 

00 . 1 

374 

0176 

35 

23 tt i 

375 

0177 

0 

00 

376 

0178 

10 

0A 

377 

0179 

0 

00 

1 378 

1 i s t 9 

9 PRINT 
Ready 
list 10 

017 A 

197 

C5 t , 

10 REM 
Ready 

■ 

Untersuchung de 

s Speichers 5 
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10 REM Untersuchung des Speichers 5 
20 REM Speieherausgabe Byte fuer Byte 
pro Zeile 

30 REM CPC464 Basic Programme 
40 REM Copyright 1984 DATA BECKER & 

Rainer Lueers 

50 INK 0,1:INK 1,24:INK 2,1,24:e-Ffekt=2 

normal=i 

60 MÜDE 1 

70 REM Darstellungsrahmen eingrenzen 
80 INPUT "Anfangsadresse ";a 
90 REM 

100 PRINT "Endadresse (Zahl/<ENTER>->"; 
+2000; u >INPUT e 

110 IF a<0 DR e<0 OR a>65535 OR e>65535 
THEN GOSUB 270:GOTD 60 
120 IF e=0 THEN e=a+2000 
1 30 CI S 

140 REM Reihen-folge im Ausdruck: 

Adresse dezimal 
Adresse hexadezimal 
Inhalt der Adresse dezimal 
Inhalt der Adresse hexadezimal 
Inhalt der Adresse als CHR*( 

150 FDR z=a TD e 
160 PRINT z; 

170 PRINT TAB(8) HEX*(z,4); 

180 PRINT TAB (18) PEEK(z); 

190 PRINT TAB(24) HEX*(PEEK(z),2); 

200 PRINT TAB(30); 

210 nl=PEEK(z) 

220 IF nl<32 THEN nl=46 
230 IF n1>126 THEN nl=46 
240 PRINT CHR*(n1) 

250 NEXT z 
260 END 
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270 PEN ef-fekt SPRINT: PRINT TAB< 12) "Fals 
che Eingabe!" 

280 PEN normalsGOSUB 290 s RETURN 

290 PRINTsPRINT TAB(7) "<Bitte eine Tast 

e druecken> aa 

300 f*=INKEY*sIF -f*="" THEN GOTO 300 
310 RETURN 
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Grafikeditor 


Nicht nur der Sound des CPC läßt sich ohne Handbuch nur mit 
Schwierigkeiten programmieren, ähnlich wenn nicht sogar gleich 
verhält es sich mit der Grafikprogrammierung beim CPC. 

Einerseits gibt es lediglich zwei direkte Grafikbefehle (Punkt 
setzen - 'PLOT 1 , Linie zeichnen = 'DRAW 1 ), andererseits muß man 
sich schon gut auf einem Koordinatenkreuz zu Hause fühlen, will 
man absolut und relativ genau die gewünschten Punkte auf dem 
Bildschirm ansprechen. 

Viel einfacher, schneller und auch komfortabler geht es da doch 
mit unserem 'Grafikeditor 1 . 

Lange haben wir überlegt, welche Ansteuerung für den Cursor 
ideal wäre (nur die absolute Adressierung zu verwenden wäre in 
unseren Augen sinnlos, dann brauchten wir keinen Grafikeditor!). 
Der Joystick mußte ebenalls wie die Cursorsteuerung schon bald 
abgeschrieben werden, da hierdurch nur jeweils vier Himmels¬ 
richtungen angesprochen bzw. unterschieden werden können. 

Da für uns ein Achter-Richtungsblock ideal war (alle Himmels¬ 
richtungen plus Diagonalen), wurde einfach ein Großteil der 
Zehnertastatur als Cursor mit acht Richtungen umfunktioniert 
bzw. umbelegt. 

Das Programm 'Grafikeditor' bietet nicht nur die Möglichkeit des 
einfachen Zeichnens in acht Himmelsrichtungen: 

mit 'C' können Sie den Cursor absolut setzen (z.B.'320,200' = 
Mittelpunkt) 

mit 'D' kann eine Bildschirmfläche dupliziert werden (Sie be¬ 
stimmen mit dem ersten Cursor die linke untere Ecke, mit dem 
zweiten Cursor die rechte obere Ecke der zu kopierenden Fläche; 
schließlich wird mit dem dritten Cursor die linke untere Ecke 
angepeilt, wo unser Duplikat auf dem Bildschirm erscheinen 
soll). Mit der Zusatzfunktion *0R' wird im Gegensatz zu 'AND' 


- 24 - 



der Bilduntergrund nicht gelöscht. Schließlich können Sie das 
Original auch noch zweifach vergrößert darstellen 

mit 'F* können Sie aus dem zur Verfügung stehenden Farbspektrum 
auswählen 

mit 'G' läßt sich leicht eine Gerade beliebiger Länge zwischen 
zwei Punkten ziehen 

mit 'K' wird nach Eingabe des Radius um den Cursor, der nun 
Mittelpunkt ist, ein Kreis gezogen 

mit 'L' loeschen Sie eine durch zwei Cursoreingaben (links unten 
und rechts oben) bestimmte Fläche 

mit 'R' (wieder links unten und rechts oben bestimmen) wird ein 
Rechteck auf den Bildschirm gezeichnet 

mit 'T' wird schließlich ein Text an der Grafikcursorposition 
ausgegeben. 

Sie sehen, bis auf das Ausmalen von Flächen, eine Abspeicherng 
des entstandenen Bildes auf Kassette (16 K dauern mit Kassette 
einfach zu lange, warten wir lieber auf die Diskettenstation) 
und eine Ausgaberoutine an den Drucker (Hardcopy) ist fast alles 
grafisch mit diesem 'Grafikeditor 1 möglich. 

Vielleicht fallen Ihnen noch andere Dinge ein. Bis auf den 
begrenzten Computerspeicherlatz liegt Ihrer Kreativität somit 
kein Stein mehr im Wege. 
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10 REM Grafikeditor 

20 REM CPC464 Basic Programme 

30 REM Copyright 1984 DATA BECKER Sc 

Rainer Lueers 

40 INK 0,1: INK 1,24: INK 2,1,24:effekt=2: 

normal=l 

50 MODE 1 

60 FOR n=3 TO 20:KEY DEF n,1:NEXT:SPEED 
KEY 50,2 

70 PAPER 0:PEN normal 

80 INPUT "Welchen Bildschirmmode "; f $ 

90 IF VAL(f*)<0 OR VAL(f*>>2 THEN GOSUB 
1570:GOTO 80 

100 IF VAL(f*)=0 THEN 21=4 

110 IF VAL<f$>=l THEN zl=2 

120 IF VAL(f*)=2 THEN zl=l 

130 MODE VALtf*) 

140 REM Festlegen des Grafik- und des 
Textfensters 

150 ORIGIN 0,0,0,640,400,20 

160 WINDOW #1,1,40,25,25 

170 a=320:b=200 

180 PAPER #1,3:CLS #1 

190 PAPER 0:CLG:PLOT a,b,l 

200 REM Menuevorgabe 

Auswahlmoeglichkeiten: CDFGKLRT 
C = Cursor mit Koordinaten best. 
D = Duplizieren (Or/And/Vergr.) 

F = Farbe bestimmen 
G = Gerade zeichnen 
210 REM K = Kreis zeichnen 
L = Loeschen 
R = Rechteck zeichnen 
T = Text eingeben 

220 CLS #1:PRINT #1,a;b;"CDFGKLRT"; 

230 a$=INKEY* 

240 IF at="" THEN GOTO 230 
250 GOSUB 1570 
260 DRAW a,b 

270 IF ASC(a*)>57 THEN GOSUB 290 
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280 GOTO 220 

290 CLS #1 SPRINT #l,a;b; 

300 a*=UPPER*<at) 


310 IF 

;s zz=2 

a*="C" 

THEN 

PRINT 

#i, 

"Cure.best 

320 IF 

;:zz=3 

a*="D" 

THEN 

PRINT 

#i, 

"Duplizier 

330 IF 

;:zz=4 

a *= ,, F" 

THEN 

PRINT 

#i. 

"Färb - best 

340 IF 

;:zz=5 

at="G" 

THEN 

PRINT 

#i, 

"Gerade ze 

350 IF 

;:zz=6 

at= ,, K" 

THEN 

PRINT 

#i. 

"Kreis zei 

360 IF 

;:zz=7 

aS^L' 1 

THEN 

PRINT 

#i. 

"Loeschen 

370 IF 

;:zz=8 

a*="R M 

THEN 

PRINT 

#i. 

"Rechteck 

380 IF 

aS^'T" 

THEN 

PRINT 

#i. 

"Text eing 


;:zz=9 

390 IF zz-0 THEN RETURN 
400 a*=INKEY* 

410 IF a*="“ THEN GOTO 400 

420 IF a*=CHR* <13) THEN GOTO 440 

430 RETURN 

440 ON zz GÜSUB 410,470,520,060,900,1000 
,1080,1280,1450 
450 RETURN 

460 REM C = Cursor mit Koordinaten best. 
470 CLS #1: INPUT #1, " Wohi n (>;, y> ■■ ; at, b* 
480 IF VAL(a*)<0 OR VAL(a*)>640 ÜR VAL(a 
*)<20 OR VAL(a*)>400 THEN GOTO 470 
490 a=VAL(a*)sb=VAL(b*):PLOT a,b 
500 RETURN 

510 REM D = Duplizieren (Or/And/Vergr.) 
520 punkta=a:punktb=b:CLS #1sPRINT # 1,"1 
.Cursor setzen" 

530 a*=INKEY* 

540 IF a*="” THEN GOTO 530 

550 farbe=TEST(a,b)spunktl=a:punkt2=b 
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560 FOR m=l TO 10:PLOT a,b,farbe:PLOT a, 
b1: PLOT a, b , 2: PLOT a,b,3:PLOT a,b,l:PLO 
T a, b,färbe:NEXT m 
570 GOSUB 1570 

580 IF a*=CHR*(13) THEN al=a:bl=b ELSE G 
OTO 530 

590 CLS #1:PRINT #1,"2-Cursor setzen u 
600 a*=INKEY* 

610 IF a*="" THEN GOTO 600 

620 farbe=TEST(a,b>:punktl=a:punkt2=b 

630 FOR m=l TO 10:PLOT a,b,färbe:PLOT a, 

b, 1: PLOT a, b, 2: PLOT a ? b ? 3:PLOT a,b.,l:PLO 

T a F b,färbe:NEXT m 

640 GOSUB 1570 

650 IF a*=CHR*C13> THEN a2=a:b2=b:IF a2< 
=al OR b2<=bl THEN GOTO 590 ELSE GOTO 66 
0 ELSE GOTO 600 

660 CLS #1 :PRINT #1, "3. Cursor setzen" 

670 a*=INKEY* 

680 IF a*="" THEN GOTO 670 

690 f arbe=TEST(a,b):punk11=a:punk12=b 

700 FOR m=l TO 10:PLOT a,b,färbe:PLOT a, 

b, 1:PLOT a, b, 2:PLOT a,b,3:PL0T a,b,l:PLO 

T a,b,färbe:NEXT m 

710 GOSUB 1570 

720 IF a*=CHR* <13) THEN a3=a:b3=b ELSE G 
OTO 670 

730 CLS #1:INPUT #l,“Q<r) oder N(ot) ";f 
*:f*=UPPER*(f *):IF LEFT*(f*,1)= M O n THEN 
f1ag=l ELSE f1ag=0 

740 CLS #1:INPUT #1,"vergroessert <J/ > 

" ; f * : f*=UPPER* < f *):IF LEFT*<f*,1)="J" TH 
EN f1ag2=l ELSE flag2=0 
750 IF flag2<>0 THEN GOTO 800 
760 nl=0:ml=0:FOR n=al TO a2 STEP z1:FOR 
m=b1 TO b2 STEP 2 

770 farbtest=TEST(n„m):IF flag=0 THEN PL 
OT a3+nl,b3+ml,färbtest ELSE IF TEST(a3+ 
n1,b3+ml)=0 THEN PLOT a3+nl,b3+ml,färbte 
st 
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780 ml=ml+2:NEXT m:ml=0:nl=n1+z1:NEXT n 
790 a=punkta: b=punktb: PLOT a,b, 1: RETURN 
nl=0:ml=0:FOR n=al Tü a2 STEP z1:FOR 
m=b1 TO b2 STEP 2 

810 ft=TEST (n,m) : IF flag=0 THEN PLOT a3+ 
nl, b3+ml ,ft: PLOT a3+nl 9 b3+ml+2., ft: PLOT a 
3+n1 +z 1,b3+m1,f t:PLOT a3+n1+z1, b 3+m1 +2, f 
t 

820 IF f 1 ag=l AND TEST(a3+n1,b3+ml>=0 TH 
EN PLOT a3+n1,b3+m1, f t:PLOT a3+nl ? b3+ml+ 
2,ft:PLOT a3+n1+zl,b3+m1,ft:PLOT a3+nl+z 
1,b3+m1+2,ft 

830 ml=ml+4:NEXT m:ml=0:nl=nl+2*z1:NEXT 
n 

840 a=punkta:b=punktb:PLOT a,b,1:RETURN 
850 REM F = Farbe bestimmen 
860 CLS #1:INPUT #1,"Welche Nummer M ;f$ 
870 IF VAL <f<0 OR VAL<f*>>zlT2 THEN GO 
TO 860 ELSE PLOT a ? b ? VAL(f*) 

880 RETURN 

890 REM G = Gerade zeichnen 

900 CLS #1:PRINT #l,"Bitte Cursor setzen 

":punktl=a:punkt2=b 

910 a*=INKEY* 

920 IF a$="" THEN GOTO 910 
930 farbe=TEST(a P b) 

940 FOR m=l TO 10:PLOT a,b,farbe:PLOT a, 
b?lsPLOT a,b,2:PLOT a-.b-.SsPLOT a,b,i:PLO 
T a,b,färbe:NEXT m 
950 GOSUB 1570 

960 IF a*=CHR*<13) THEN GOTO 980 
970 GOTO 910 

980 PLOT punkt1,punkt2,1:DRAW a,b,l:RETU 
RN 

990 REM K = Kreis zeichnen 

1000 CLS #1:INPUT #i s "Radius ";f* 

1010 FOR aa=l TO 360 
1020 DEG 

1030 PLOT a+VAL <ft)*COS(aa),b+VAL(f *)*SI 
N(aa),1 
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1040 NEXT aa 

1050 PLOT a,b 

1060 RETURN 

1070 REM L = Loeschen 

1080 CLS #1:PRINT #1,"1-Cursor setzen" 
1090 merkerl=a:merker2=b 
1100 a*=INKEY* 

1110 IF a$="" THEN GOTO 1100 

1120 -f arbe=TEST < a, b) s punkt l=a:punkt2=b 

1130 FÜR m=l TO 10:PLOT a,b,färbe:PLOT a 

,b,1:PLOT a, b, 2:PLOT a,b,3:PL0T a,b,l:PL 

OT a, b,-färbe: NEXT m 

1140 GOSUB 1570 

1150 IF a*=CHR*<13) THEN al=a:bl=b ELSE 
GOTO 1100 

1160 CLS #1:PRINT #1,"2.Cursor setzen" 
1170 a*=INKEY* 

1180 IF a*="" THFN RflTO 1170 
1190 -f arbe=TEST (a, b) : punkt l=a:punkt2=b 
1200 FOR m=l TO 10:PLOT a, b, -färbe: PLOT a 
? b, 1:PLOT a, b, 2:PLOT a,b,3:PL0T a,b,l:PL 
OT a,b, -färbe: NEXT m 
1210 GOSUB 1570 

1220 IF a*=CHR*<13) THEN a2=a:b2=b ELSE 
GOTO 1170 

1230 ORIGIN 0,0,al,a2,b2,bl:CLG: 

1240 ORIGIN 0,0,0,640,400,20 

1250 a=merker1:b=merker2:PLOT a,b,l 

1260 RETURN 

1270 REM R = Rechteck zeichnen 
1280 CLS #1:PRINT #11-Cursor setzen" 
1290 merkerl=a:merker2=b 
1300 a*=INKEY* 

1310 IF a*="" THEN GOTO 1300 

1320 -f arbe=TEST (a, b) : punkt l=a: punkt2=b 

1330 FOR m=l TO 10:PLOT a, b, -färbe: PLOT a 

,b,1:PLOT a,b,2:PLOT a,b,3:PL0T a,b,l:PL 

OT a, b,-färbe: NEXT m 

1340 GOSUB 1570 
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1350 IF a*=CHR*<13) THEN al=a:bl=b ELSE 
GOTO 1300 

1360 CLS #1:PRINT #1,"2.Cursor setzen" 
1370 a*=INKEY* 

1380 IF a*= u " THEN GOTO 1370 

1390 -f arbe=TEST (a, b) : punktl=a:punkt2=b 

1400 FOR m=l TO 10: PLOT a, b, -färbe: PLOT a 

5 b,1:PLOT a,b,2:PLOT a,b,3:PL0T a,b,l:PL 

OT a,b, -färbe:NEXT m 

1410 GOSUB 1570 

1420 IF a*=CHR*<13> THEN a2=a:b2=b ELSE 
GOTO 1370 

1430 PLOT al,bl:DRAM a2,bl,l:DRAW a2,b2, 

1:DRAW al,b2,l:DRAW al,bl,1:a=merker1:b= 

merker2:PLOT a,b,l:RETURN 

1440 REM T = Text eingeben 

1450 CLS #1:PRINT #1,"Cursor setzen":mer 

kerl=a:merker2=b 

1460 a*=INKEY* 

1470 IF a*= M " THEN GOTO 1460 

1480 -f arbe=TEST <a,b) : punkt l=a: punkt2=b: F 

OR m=l TO 10:PLOT a,b,färbe:PLOT a,b,l:P 

LOT a,b,2:PLOT a,b,3:PL0T a,b,l:PLOT a,b 

,Farbe:NEXT m 

1490 GOSUB 1570 

1500 IF a*=CHR*(13) THEN al=a:bl=b:PLOT 
a1,b1,1 ELSE GOTO 1460 
1510 TAG 

1520 CLS #1:INPUT #l,"Text " ; a* 

1530 PRINT at; 

1540 a=merker1:b=merker2:PLOT a,b,l 
1550 TAGOFF:RETURN 

1560 REM Ausrechnen der Cursorbe¬ 
wegung (B Richtungen) 

1570 IF ASC(a*)=54 THEN a=a+z1 

1580 IF ASC<a*)=57 THEN a=a+z1:b=b+z1 

1590 IF ASC(a*)=56 THEN b=b+2 

1600 IF ASC(a*)=55 THEN a=a-z1:b=b+z1 

1610 IF ASC(a*)=52 THEN a=a-z1 

1620 IF ASC(a*)=49 THEN a=a-z1:b=b-z1 
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1630 IF ASC(a*)=50 THEN b=b-2 
1640 IF ASC<a$>=51 THEN a=a+z1:b=b-z1 
1650 RETURN 
1660 a*=INKEY* 

1670 IF a*=" M THEN 1660 
1680 PRINT ASC(a*> 

1690 GOTO 1660 
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Soundeditor 


Der CPC hat zwar einen tollen Soundprozessor, jedoch wird der 
Umgang mit dem vielen unverständlichen Zahlwerk s£hon so manchem 
begeisterten Freak nach langem Versuchen den Wind aus den Segeln 
genommen haben- Wie kann man sich auch logisch erklären, daß die 
Tonkanäle beim SOUND-Befehl an erster Stelle angesprochen wer¬ 
den, die Lautstärke jedoch erst an vierter Stelle? Wie merkt man 
sich die vielfältigen Rendezvous-Techniken? 

Unserer Meinung nach ist da nicht mit Auswendiglernen weiterge¬ 
holfen, vielmehr läuft es hierbei immer mehr auf das häufige 
Nachschlagen im Handbuch hinaus! 

Oder: Wie merken wir uns, welche der phantastischen Ton- bzw. 
Lautstärkekurven gerade aktiv ist nd welche wir aktivieren kön¬ 
nen? Notitzen auf Papier machen? 

Wir haben mit unserem 'Soundeditor' eine komfortablere Lösung 
anzubieten. Sie finden sämtliche Parameter mit ihrer deutschen 
Bedeutung auf einer Bildschirmseite und können nun durch Drücken 
der Taste (SHIFT) mit einem Buchstaben zusammen anheben (z.B. 
(SHIFT) 'H' -) Tonhöhe steigern) oder durch Drücken der Taste 
(CTRL) mit einem Buchstaben zusammen senken (z.B. (CTRL) 'L* -) 
Latstärke verringern)- 

So läßt sich so manch ein Ton oder manches Geräusch in aller 
Ruhe am Bildschirm editieren und durch anschließendes Drücken 
der Taste (ENTER) auch aktivieren (denken Sie bitte daran, daß 
für die Erzeugung eines Tones bei diesem Soundeditor die Laut¬ 
stärke, die Tonhöhe und zumindest ein Tonkanal aktiviert sein 
muß). 

Bis zu sechzehn verschiedene Hüllkurven jeweils getrennt für Ton 
und Lautstärke können zusätzlich aktiviert und bei der Tonedi- 
tierung eingesetzt werden. Nach dem Drücken der Tasten (SHIFT) 
und 'N* (ENV-Eingabe) werden Sie nach der ENV-Nummer und der 
Parameterzahl befragt. Die ENV-Nummer hat etwas mit der Pro¬ 
grammabspeicherung zu tun und ist nicht unbedingt gleichbedeu- 
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tend mit der Folgenumraer der Hüllkurve. Somit beträgt die Min- 
destparameteranzahl, nach der im Programm gefragt wird, auch 
nicht drei sondern vier. 

Ähnlich werden ENT-Hüllkurven erzeugt (Tonhüllkurven) und zwar 
durch gleichzeitiges Niederdrücken der Tasten (SHIFT) und '0'. 
Schließlich können wir uns einen Überblick über die erstellten 
Hüllkurven durch (SHIFT) und 'P 1 verschaffen. 

Viel Spaß bei der Editierung neuer Klänge mit Ihrem CPC und 
diesem Soundeditor! 


p eJ . be in Sehne i der 

CPC464 1 

< SHIFT> -> + <CTRL> 

-> - 

A:Kanal A 

B:Kanal B 

C:Kanal C aus 


D:Rendezvous Mit Kana 1 A 
E:Rendezvous Mit Kanal £ 
F'Rendezvous Mit Kanai c 

aus 

aus 

G:Geraeusch Periode aus 

H:Tonhoehe 


I:Tondauer in 1/100 Sek. 


J:Abruf einer ENU-Huellkurve 

K:Abruf einer ENT-Hue1lkurve 0 

L:Lautstaerke 


N:ENU-Eing. 0:ENT-Eing. 

P : L i s t e 
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10 REM Soundeditor 

20 REM CPC464 Basic Programme 

30 REM Copyright 1984 DATA BECKER & 

Rainer Lueers 

40 INK 0,1:INK 1,24:INK 2,1,24 
50 DIM a(15,15),al(15,15) 

60 MÜDE 1 

70 SPEED INK 20,20 
80 PEN 1 

90 REM Bildschirmaufbau mit Angaben zu 
Kanal, Huel1 kurve, Tonhoehe - -. 
100 PRINT" Der ";:PEN 2: PR I NT 11 Sound 11 ; : 
PEN 1:PRINT" beim Schnei der CPC464" 

110 PRINT 

120 PRINT" <SHIFT> -> + <CTRL> -> 

_ ■■ 

130 PRINT 

140 PRINT TAB(11) "A:Kanal A ";:IF a=0 T 

HEN PRINT"aus" ELSE PEN 2:PRINT"an ":PEN 
1 

150 PRINT TAB(11) "B:Kanal B ";:IF b=0 T 

HEN PRINT"aus" ELSE PEN 2:PRINT"an ":PEN 
1 

160 PRINT TAB(11) "C:Kanal C ";:IF c=0 T 

HEN PRINT"aus" ELSE PEN 2:PRINT"an ":PEN 
1 

170 PRINT 

180 PRINT TAB(4) "D:Rendezvous mit Kanal 

A ";:IF d=0 THEN PRINT"aus" ELSE PEN 2: 
PRINT"an":PEN 1 

190 PRINT TAB(4) "E:Rendezvous mit Kanal 

B ";:IF e=0 THEN PRINT"aus" ELSE PEN 2: 
PRINT"an":PEN 1 

200 PRINT TAB(4) "F:Rendezvous mit Kanal 

C ";:IF f=0 THEN PRINT"aus" ELSE PEN 2: 
PRINT"an":PEN 1 
210 PRINT 

220 PRINT TAB(7) "G:Geraeusch Periode "; 

: IF g=0 THEN LOCATE 27,13:PRINT "aus" EL 
SE PEN 2:LOCATE 27,13:PRINT g:PEN 1 
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230 PRINT 

240 PRINT TAB(11) "H:Tonhoehe M ;:IF h=0 
THEN LOCATE 22,15:PRINVaus" ELSE PEN 2: 
LDCATE 22,15:PRINT h:PEN 1 
250 PRINT 

260 PRINT TAB(4) "IsTondauer in 1/100 Se 
k« " ; : IF i=0 THEN PRINT"aus“ ELSE PEN 2:L 
OCATE 28,17:PRINT i:PEN 1 
270 PRINT 

280 PRINT TAB (4) "JsAbru-F einer ENV-Huel 
1 kurve n ;:IF j=0 THEN LOCATE 33,19:PRINT 
,, 0" ELSE PEN 2: LOCATE 32, 19: PRINT j : PEN 
1 

290 PRINT TAB(4) N K:Abruf einer ENT-Huel 
1 kurve n ;:IF k=0 THEN LOCATE 33,20:PRINT 
"0" ELSE PEN 2:LOCATE 32,20:PRINT k:PEN 
1 

300 PRINT 

310 PRINT TAB(11) M L:Lautstaerke ";:IF 1 
=0 THEN LOCATE 25,22:PRINT"aus" ELSE PEN 
2:LOCATE 25,22:PRINT 1:PEN 1 
320 PRINT 

330 PRINT TAB(4) "N:ENV-Eing- 0:ENT—Ein 
g_ PsListe" 

340 a$=INKEY* 

350 REM Soundkanal und Rendevous wie 
eingestellt uebernehmen 
360 al=a+b+c+d+e+f 

370 REM Tastaturabfrage inklusive 
Tonerzeugung, wenn <ENTER> 
gedrueckt 

380 IF a$=CHR$(13) THEN SOUND al,h,i,l,j 
, k,g 

390 IF a*=CHR*(I4> OR a*=CHR*(78) THEN G 
OTO 2120 

400 IF a*=CHR*(15) OR a*=CHR*(79) THEN G 
OTO 2250 

410 IF a$=CHR*<I6> OR a*=CHR*(80) THEN G 
OTO 2370 

420 IF a$= ,,M THEN GOTO 340 
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430 IF ASC(a*>>12 AND ASC(a*><65 THEN GO 
TO 340 

440 IF ASC(a$)>76 THEN GOTO 340 
450 IF ASC(a*>>12 THEN GOTO 1250 
460 REM Falls die gedrueckte Taste 

eine Aenderung auf dem Bild¬ 
schirm bewirkt hat, wird sie 
durch folgende Zeilen erzeugt 
470 ON ASC(aS) GOSUB 490,530,570,610,650 
,690,730,820,910,1000,1080,1160 
480 GOTO 340 
490 a=0 

500 LOCATE 21,5 
510 PRINT ,, au5 M 
520 RETURN 
530 b=0 

540 LOCATE 21,6 
550 PRINT"aus" 

560 RETURN 
570 c=0 

580 LOCATE 21,7 
590 PRINT"aus" 

600 RETURN 
610 d=0 

620 LOCATE 29,9 
630 PRINT"aus“ 

640 RETURN 
650 e=0 

660 LOCATE 29,10 
670 PRINT"aus" 

680 RETURN 
690 f=0 

700 LOCATE 29,11 
710 PRINT"aus" 

720 RETURN 

730 IF g>0 THEN g=g-l 

740 IF g=0 THEN LOCATE 27,13:PRINT"aus": 
RETURN 

750 LOCATE 27,13 
760 PRINT" 
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770 LOCATE 27,13 
780 PEN 2 
790 PRINT g 
800 PEN 1 
810 RETURN 

820 IF h>0 THEN h=h-l 

830 IF h=0 THEN LOCATE 22,15:PRINT"aus 
RETURN 

840 LOCATE 22,15 
850 PRINT" 

860 LOCATE 22,15 
870 PEN 2 
880 PRINT h 
890 PEN 1 
900 RETURN 

910 IF i>0 THEN i=i-l 

920 IF i=0 THEN LOCATE 28,17:PRINT"aus 
RETURN 

930 LOCATE 28,17 
940 PRINT" 

950 LOCATE 28,17 
960 PEN 2 
970 PRINT i 
980 PEN 1 
990 RETURN 


1000 

IF j>0 

THEN j=j- 

1 

1010 

LOCATE 

32, 19 


1020 

PRINT" 

II 


1030 

LOCATE 

32, 19 


1040 

IF j>0 

THEN PEN 

2 

1050 

PRINT j 

! 


1060 

PEN 1 



1070 

RETURN 



1080 

IF k>0 

THEN k=k- 

-1 

1090 

LOCATE 

32,20 


1100 

PRINT" 

ai 


1110 

LOCATE 

32,20 


1120 

IF k>0 

THEN PEN 

O 

X. 

1130 

PRINT V 



1140 

PEN 1 
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1150 RETURN 

1160 IF 1>0 THEN 1=1-1 
1170 LOCATE 25,22 
1180 PRINT" 

1190 LOCATE 25,22 

1200 IF 1=0 THEN PRINT"aus":RETURN 

1210 PEN 2 

1220 PRINT 1 

1230 PEN 1 

1240 RETURN 

1250 ON (ASC<a*)-64) GOSUB 1270,1330,139 
0,1450,1510,1570,1630,1710,1790,1870,195 
0,2030 

1260 GOTO 340 
1270 a=l 

1280 LOCATE 21,5 
1290 PEN 2 
1300 PRINT"an " 

1310 PEN 1 
1320 RETURN 
1330 b=2 

1340 LOCATE 21,6 
1350 PEN 2 
1360 PRINT"an " 

1370 PEN 1 
1380 RETURN 
1390 c=4 

1400 LOCATE 21,7 
1410 PEN 2 
1420 PRINT"an “ 

1430 PEN 1 
1440 RETURN 
1450 d=8 

1460 LOCATE 29,9 
1470 PEN 2 
1480 PRINT"an " 

1490 PEN 1 
1500 RETURN 
1510 e=16 
1520 LOCATE 29,10 
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1530 PEN 2 
1540 PRINT"an H 
1550 PEN 1 
1560 RETURN 
1570 f =32 
1580 LOCATE 29,11 
1590 PEN 2 
1600 PRINT"an " 

1610 PEN 1 
1620 RETURN 

1630 IF g< 15 THEN g=g+l 
1640 LOCATE 27,13 
1650 PRINT" " 

1660 LOCATE 27,13 
1670 PEN 2 
1680 PRINT g 
1690 PEN 1 
1700 RETURN 

1710 IF h<4095 THEN h=h+l 
1720 LOCATE 22,15 
1730 PRINT" 

1740 LOCATE 22,15 
1750 PEN 2 
1760 PRINT h 
1770 PEN 1 
1780 RETURN 

1790 IF i<32767 THEN i=i+l 
1800 LOCATE 28,17 
1810 PRINT" 

1820 LOCATE 28,17 
1830 PEN 2 
1840 PRINT i 
1850 PEN 1 
1860 RETURN 

1870 IF j<15 THEN j=j+l 
1880 LOCATE 32,19 
1890 PRINT" 

1900 LOCATE 32,19 
1910 PEN 2 
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1920 PRINT j 
1930 PEN 1 
1940 RETURN 

1950 IF k<15 THEN k=k+l 
I960 LOCATE 32,20 
1970 PRINT” " 

1980 LOCATE 32,20 
1990 PEN 2 
2000 PRINT k 
2010 PEN 1 
2020 RETURN 

2030 IF 1<15 THEN 1=1+1 
2040 LOCATE 25,22 
2050 PRINT" 

2060 LOCATE 25,22 
2070 PEN 2 
2080 PRINT 1 
2090 PEN 1 
2100 RETURN 

2110 REM Eine neue ENV-Huel1 kurve soll 
erzeugt werden 
2120 LOCATE 4,24 

2130 PRINT" 

»1 

2140 LOCATE 4,24 

2150 INPUT"ENV—Nr.und Parameteranzahl "; 
z , z 1 

2160 IF z <0 OR z > 15 OR (zl<>4 AND zl<>7 
AND zl<> 10 AND zl<>13 AND zl<>16) THEN 
GOTO 2120 ELSE LOCATE 4,24:PRINT" 


2170 IF z1=4 THEN INPUT"4 Par. " ;a(z,0), 
s (z y 1) , a <z , 2> , a <z , 3) 

2180 IF z1=7 THEN INPUT"7 Par. ";a(z,0>, 
a(z, 1) ,a(z,2) ,a(z,3) ,a<z,4) ,a(z,5> , a<z,6 
) 

2190 IF z1=10 THEN INPUT"10 Par. ";a(z,0 
^ .■» a ^j 1) , a (z , 2) , a (z , 3) , a (z , 4) ,a(z,5),a(z 
,6),a(z,7),a(z,8),a(z,9) 
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2200 IF z 1 = 13 THEN INPUT"13 Par. ";a(z,0 
) , a (z , 1) ,a(z,2),a(z,3) , a < z , 4) , a (z , 5) ,a(z 
,6) ,a(z,7),a(z,8) , a (z , 9) ,a(Zjl0) , a <z , 11) 
,a(z,12) 

2210 IF z1=16 THEN INPUT"16 Par- ";a(z,0 
) j, a (z, 1) i a (z i 2) , a (z , 3) , a (z , 4) 5 a (z , 5) , a (z 
,6) ,a <z , 7) ,a(z , 8) ,a(z , 9) , a (z, 10) ,a(z, 11) 
,a<z,12),a(z,13),a(z,14),a(z,15) 

2220 ENV a(z,0),a(z,1),a(z,2>,a(z,3),a(z 
,4) ,a(z,5) ,a(z,6) , a <z , 7) , a <z , 8) , a (z , 9) , a 
<z,10), a<z,11),a(z,12),a<z,13), atz,14), a 
(z ,15) 

2230 GOTO 2370 

2240 REM Eine neue ENT-Huel1 kurve 
soll erzeugt werden 
2250 LOCATE 4,24 
2260 PRINT n 

ii 

2270 LOCATE 4,24 

2280 INPUT"ENT—Nr. und Parameteranzahl 
z,zl 

2290 IF z<0 OR z >15 OR <zl<>4 AND zl<>7 
AND z1< > 10 AND z1< >13 AND zl<>16) THEN 
GOTO 2250 ELSE LOCATE 4,24:PRINT" 

LOCATE 4,2 
4 

2300 IF z1=4 THEN INPUT"4 Par. ";al(z,0> 
,al(z ,1),al(z,2),al(z, 3) 

2310 IF z1=7 THEN INPUT"7 Par. ";al<z,0) 
,al(z,1),al(z,2),al( z , 3),al(z , 4 ),al(z , 5) 
, al(z,6) 

2320 IF zl=10 THEN INPUT"10 Par. ";al(z, 
0),al<z,1),al(z,2),al(z,3),al(z,4),al(z, 
5},al(z ^ 6),al( z, 7 ),al(z , 8),al(z, 9 ) 

2330 IF z1=13 THEN INPUT”13 Par. ";al(z, 
0),al(z,1),al(z,2),al(z,3),al(z , 4),al(z, 
5),al(z , 6),al(z,7),al(z,8),al(z,9),al<z, 
10),al(z,11),al(z,12) 
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2340 IF z 1 = 16 THEN INPUT"16 Par, "jaltz, 
0),al(z,1),al(z,2),al(z,3),al(z,4),al (z, 
5),al(z,6) s al<z,7),al(z,8),al(z,9),ai(z, 
10),al<z,11),al(z,12),al<z,13),al<z,14), 

al(z,15) 

2350 ENT al(z,0) P al(z s 1) P al<z,2),al<z s 3> 
,al(z,4), al(z,5), al<z, 6), al(z,7),al(z, 8) 

s al(z,9) 5 al(z,10),al<z,ll) f al(z,12),al(z 

,13), al<z,14), al(z,15) 

2360 REM Die vorhandenen ENV— bzw. 

ENT-Huel1 kurven sol1en auf 
dem Bildschirm dargestellt 
werden 
2370 MÜDE 1 
2380 ai="" 

2390 INPUT"ENV-Liste oder ENT-Liste <V/T 
) ; at 

2400 IF a«="" THEN GOTO 60 

2410 IF a$C-"V" AND atO'V AND atO"T" 

AND a«< >"t" THEN GOTO 2370 

2420 IF a$<>"v" AND at<>"V" THEN GOTO 25 

30 

2430 REM Ausgabe der ENV-Huel1 kurven 
2440 FOR n=0 TD 15 
2450 FOR m=0 TO 15 

2460 IF a(n,0)=0 THEN GOTO 2470 ELSE PRI 
NT a(n,m); 

2470 NEXT m 

2480 PRINT:PAPER 3:PRINT n;"PAPER 4 
2490 NEXT n 
2500 a«=INKEY* 

2510 IF a«="" THEN GOTO 2500 ELSE GOTO 6 
0 

2520 REM Ausgabe der ENT-Huel1 kurven 
2530 FOR n=0 TO 15 
2540 FOR m=0 TO 15 

2550 IF a1(n 5 0> =0 THEN GOTO 2560 ELSE PR 
INT al(n,m); 

2560 NEXT m 

2570 PRINT:PAPER 3:PRINT n; ". :PAPER 4 

2580 NEXT n 
2590 a«=INKEY« 

2600 IF a«="" THEN GOTO 2590 ELSE GOTO 6 
0 
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Texteditor 


Wir haben dieses Programm absichtlich nicht Textbearbeitung oder 
gar Textverarbeitung genannt, denn bei dieser Wahl der Be¬ 
zeichnung wären die Erwartungen eines fachkundigen Lesers und 
Programmierers einfach zu hoch gesteckt. 

Bei einer Textbearbeitung sollte man zumindest Textbausteine 
zusätzlich im Speicher in den bereits bestehenden Text einfügen 
können, und dies können wir mit einer Kassettenrecorderabspei¬ 
cherung nur äußerst schwer zufriedenstellend bewältigen. 

Bei einer Textverarbeitung hingegen sollte eine Kopplung mit 
Adreßdateien möglich sein, der deutsche Zeichensatz und die 
deutsche Silbentrennung sollten in das Programm mit einfließen 
und schließlich: die Textverarbeitung sollte unabhängig von dem 
zur freien Verfügung stehenden Computerspeicherpklatz zwischen¬ 
durch Textteile irgendwo ablegen (normalerweise auf Diskette) 
und beim Zurückblättern auch diese Inhalte wieder in den Spei¬ 
cher automatisch laden können. 

All diesem steht die bisherige Abspeicherungsmöglichkeit des CPC 
(mit Kassette) im Wege, geschweige denn: eine derart komfortable 
Textverarbeitung würde den Rahmen dieser Programmsammlung spren¬ 
gen. 

Nachdem wir Ihre Erwartungen heruntergeschraubt haben, nun aber 
doch noch die Erläuterung der Fähigkeiten unseres Texteditors: 
Wir können bis zu 10 Seiten a 22 Zeilen in unserem CPC abspei¬ 
chern. Mit der normalen Cursorsteuerung können wir vorblättern 
oder zurückblättern, Texte schreiben bzw. dorthin plazieren, wo 
sie unserer Meinung nach stehen sollten, aber natürlich auch 
einzelne Buchstaben oder mehr Zeichen löschen. Sind wir mit dem 
Cursor irgendwo auf dem Bildschirm 'herumgelaufen 1 , können wir 
ihn durch das Drücken der COPY-Taste wieder an die alte Stelle 
positionieren. Die Stellung des Cursors im aktuellen Text wird 
im Erläuterungsfenster nicht nur durch die Angabe der Koordina¬ 
ten, auch durch einen Strich wird uns seine Horizontalposition 
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eindeutig angezeigt. Dieser 'Unterstreichungsstrich' wird je¬ 
weils im Überschreibmodus ('PRINT CHR$(22);CHR$(l)') i ra Erläute¬ 
rungsfenster erzeugt. 

Wollen wir zurückblättern, müssen wir den Cursor in Zeile 1 
stehen haben und die Pfeiltaste (hoch) drücken. Wollen wir 
vorblättern, können wir entweder mit dem Cursor in Zeile 22 
gehen und nun die entsprechende Pfeiltaste drücken (nach unten) 
oder wir können (CTRL) und 'B' gleichzeitig drücken, was so viel 
bedeutet wie 'B'lättern. 

Wollen wir den eingetippten Text abspeichern, drücken wir (CTRL) 
und 'S' wie 'S'aven (der gewünschte Filename muß eingegeben 
werden), zum 'L'aden eines Textes von Kassette in den Computer¬ 
speicher (CTRL) 'L'. 

Wir können im Speicher nach Inhalten suchen (auch weitersuchen 
lassen) und schließlich auch einen Ausdruck des Textes in die 
Wege leiten. 

Die zuletzt genannte Funktion, das Ausdrucken von eingegebenen 
Texten, sei noch ein klein wenig genauer erläutert: Sie haben 
vorher im 40-Spalten-Forraat den Text eingegeben (zum Teil auch 
über das Zeilenende hinweg in die nächste Textzeile geschrie¬ 
ben). Beim Ausdrucken richtet sich der CPC nach auftretenden 
Leerzeichen und gibt den Text mit mindestens 40 Zeichen/Zeile 
(je nach Ihrer Wahl auch mehr) auf den angeschlossenen Drucker 
aus. 


Noch ein Hinweis: 


Sind Sie kein Druckerbesitzer, können Sie sich spaßeshalber den 
vom Computer für den Drucker angepaßten Text auch auf dem 80- 
Zeichen-Bildschirmmode ('MODE 2') ansehen. Hierzu müssen aller¬ 
dings ein paar kleine Änderungen im Programm vorgenommen werden: 
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1) Ergänzung des Programms um Zeile 755: 

'755 MODE 2' 

2) Änderung des Befehls 'PRINT #8' in den Zeilen 780 und 790 
lediglich in 'PRINT' 

3) Vielleicht ist es sinnvoll, Zeile 810 vor der Umstellung auf 
40 Zeichen ('MODE 1') noch durch eine Warteschleife ('FOR n=l to 
10000') oder gar durch eine Fortsetzungsaufforderung ('PRINT 
"Bitte eine Taste druecken!"' plus Tastenabfrage mit 'INKEY$') 
zu erweitern; beim Drucker hingegen ist eine sofortige Rückkehr 
ins Programm gut so, denn zu diesem Zeitpunkt haben wir ja 
unsere Texte oder Daten bereits schwarz auf weiß! 

Nun können wir herumexperimentieren, wie der Text z.B. in 80, 70 
oder gar 60 Zeichen aussieht. 


Da 5 ist da5 
e* CPC464- 
er Texte ei 
fc ( . t kein 
genannten B 

Hit diesem 

Sir koennen 
n Text eint 
en, ahspeic 

^ und 

Jiel Spass 


tttt Seite 1 ttttttttttttttr 

, Programm 'Texteditor f fuer d 
Wenn Ihnen auch die Eingabe d 
n klein wenig langsam vorkonn 
Problem; der CPC hat einen so 
luffer fuer uiele r Zo i dien . 4 

Pfeil trennen wir flftsaetzp,* 

i i nsgesamt IO Bi Id schirmsei l e 
ippeilj nach etwas suchen lass 
Jiern, laden, drucken . * . ± 


voll editieren!4 
bei der Arbeit mit diesem Pn 


l Seite B 4 
rCTRL> + SI 
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10 REM Texteditor 

20 REM CPC464 Basic Programme 

30 REM Copyright 1984 DATA BECKER & 

Rainer Lueers 

40 ON ERROR GOTO S50 

50 MODE 1:DIM a?(10,23):seite=l:sl=l 
60 FOR n=l TO 10 
70 FOR m=l TO 23 
80 a?(n,m)=STRING? (40, " M ) 

90 NEXT m,n 

100 REM Erstaufbau des Bildschirms 

110 WINDOW #1,2,39,1,1 

120 WINDOW #2,1,40,2,23 

130 WINDOW #3,2,39,24,24 

140 WINDOW #4,1,40,25,25 

150 PAPER #1,3 

160 PAPER #3,3 

170 PAPER #4,3 

180 CLS #1:CLS #2:CLS #3:CLS #4 
190 PRINT #1,STRING?<38,CHR?(94)); 

200 PRINT #3,STRING?(38,CHR?(241)); 

210 CLS #4:PRINT #4,VPOS(#2);POS(#2) 

220 LOCATE #4,15,1:PRINT #4,"<CTRL> + SL 
FDB";:LOCATE #4,POS(#2),1:PRINT #4,CHR?( 
22);CHR?(1);CHR?(95);CHR?(22);CHR?(0); 
230 IF sKseite THEN sl=seite 
240 REM Warten auf Tastendruck 
250 a?=INKEY? 

260 IF a?= H THEN GOTO 250 

270 GOTO 630 

280 GOSUB 330 

290 GOSUB 550 

300 GOSUB 570 

310 PRINT #2,a?;:IF a?=CHR?<241> THEN PR 
INT #2 

320 GOTO 210 

330 REM Bi1dschirmeditor: 

Erkennen von Begrenzung, 

Umblaettermoeglichkeit und 

<DEL >—Taste 
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340 IF ASC(a$)<244 AND ASC(a*)>240 AND m 
erkerOl THEN merker = l: v=VPOS (#2) : p=POS < 
# 2 ) 

350 REM CHR* <224) 

heisst: 'COPY' gedrueckt 
bedeutet: Cursor Mieder 
zum Ausgangspunkt 

360 IF ASC(a$)=224 AND merker=l THEN mer 
ker=0:LOCATE #2,p,v:a$="":GOTO 540 
370 IF POS(#2)=40 AND VPOS(42)=22 AND a* 
<>CHR$(13) AND ASC(a$)<128 THEN PRINT CH 
R* (7) ;-.LOCATE #2, 1,22: RETURN 
380 REM CHR*<127) 

heisst: 7 DEL 7 gedrueckt 
bedeutet: Zeichen links vom 
Cursor wird geloescht 
390 IF ASC < a$)=127 AND VF05(42><>1 AND P 
OS(#2)=1 THEN LOCATE 42, 40., VPOS (42)-1: PR 
INT #2," LOCATE #2,40,VPOS(#2)-1:at=" 
“:GOTO 540 

400 IF ASC (a*) =127 AND POS (#2)01 THEN L 
OCATE 42,FOS <42) — 1, VPOS(42):PRINT 42," M 
;:LOCATE 42,POS(#2)-1,VPOS(#2):a$= M ":GOT 
O 540 

410 REM CHR*(240) 

heisst: P-feil 'oben 7 gedrueckt 
bedeutet: Cursor eine Zei1e bzw. 
eine Seite hoeher 

420 IF ASC <a$) =240 AND VPOS <42)01 THEN 
LOCATE 42, POS < #2) , VPOS < 42) -1: a$= " " : GOTO 
540 ELSE IF ASC <a$)=240 AND VPOS(42)=1 T 
HEN IF seiteOl THEN sei te=sei te-1: CLS 4 
2:FOR n=l TO 22:PRINT 42,a*(seite,n);:NE 
XT n:LOCATE 42,1,1 
430 REM CHRt(241> 

heisst: Pteil 'unten 7 gedrueckt 
bedeutet: Cursor eine Zei1e bzw. 
eine Seite tiefer 
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440 IF ASC (a$) =241 AND VPOS (#2)022 THEN 
LOCATE #2,PDS(#2),VPOS <#2> +1:a4=" M :GOTO 
540 ELSE IF ASC(a*>=241 AND VPOS(#2)=22 
THEN seite=seite+1zCLS #2:FÜR n=l TO 22 
:PRINT #2, a$(seite,n);:NEXT n:LOCATE #2, 
1,1 

450 REM CHR*(242) 

heisst: Pfeil 'links' 
bedeutet: Cursor eine Position 
nach links 

460 IF ASC<a*)=242 AND VPOS (#2) Ol AND P 
OS(#2)=1 THEN LOCATE #2,VPOS(#2)-1„40:a* 
= " " :GOTO 540 

470 IF ASC (a*) =242 AND VPOS (#2)01 THEN 
LOCATE #2,POS(#2)-1,VPOS(#2>:a*= M M :GOTO 
540 

480 REM CHR$<243) 

heisst: Pfeil 'rechts' 
bedeutet: Cursor eine Position 
nach rechts 

490 IF ASC (a$) =243 AND VPOS (#2)022 AND 
FOS(#2)=40 THEN LOCATE #2,1,VPOS<#2)+1:a 
$="":GOTO 540 

500 IF ASC (a^) =243 AND VPOS (#2) 022 THEN 
LOCATE #2,POS(#2)+1,VPOS(#2):a$="":GOTO 
540 

510 IF ASC Ca$> <244 AND ASC(a^)>239 THEN 

merker=0:a$="":GOTO 540 

520 IF ASC(a*)=224 THEN a$= HM 

530 IF a*=CHR*<13) THEN a*=CHR*<241> 

540 RETURN 

550 IF VPOS(#2)=22 AND a*=CHR$<241) THEN 
PRINT #2,at;:MID*<a*(seite,VPOS(#2)),PO 
S(#2)—1,1)=a$:seite=seite+1:a$="“:CLS #2 
560 RETURN 

570 LOCATE #1,15,1:PRINT #1," Seite";sei 
te; 

580 LOCATE #3,15,1:PRINT #3,” Seite";sei 
te+1; 
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590 IF a*<> ,,n THEN MID$ <a$ (seite, VPOS (#2 
)),P0S<#2) ? 1)=a$ 

600 RETURN 

610 REM Ueberpruefen, welche Taste 
gedrueckt wurde 
620 REM <CTRL> ’B’ 

Blaettern 

630 IF ASCCa*)=2 AND seite<>10 THEN seit 
e=seite+i:CLS #2:FOR n=l TO 22:PRINT #2, 
a$(seite,n);:NEXT n:LOCATE #2,l,l:GOTO 3 
00 

640 REM <CTRL> ’S' 

Abspeichern auf Kassette 
650 IF ASC(a$)=19 THEN CLS #4:INPUT #4," 
Name M ;T*:IF THEN GOTO 820 ELSE f* 

="!"+f*:ÜPENOUT t*:PRINT #9,sl:F0R n=l T 
O sl:FOR m=l TO 22:PRINT #9,a$(n,m):NEXT 
m,n:CLOSEOUT:GOTO 710 
660 REM <CTRL> 7 L’ 

Laden von Kassette 

670 IF ASC(a*>=12 THEN CLS #4:INPUT #4, M 
Name M ;-f$:IF THEN GOTO 820 ELSE 

= M ! n +ft:OPENIN ft:INPUT #9,sl:FOR n=l TO 
sl:FOR m=l TO 22:INPUT #9,a$(n,m):NEXT 
m,n:CLOSEIN:seite=l:CLS #2:FOR n=l TO 22 
:PRINT #2,a*(seite,n)NEXT n:GOTO 300 
680 REM < CTRL > ’F ? 

Finden von Suchbegri-f-fen im Text 
690 IF ASC <a$)=6 THEN CLS #4:INPUT #4, M S 
uchbegri -f f "sf^sIF T*= ,,M THEN GOTO 710 E 
LSE FOR n=l TO sl:FOR m=l TO 22:IF INSTR 
(a*(n,m) ? ft)>0 THEN CLS #2:FOR mm=l TO 2 
2:PRINT #2,at(n,mm);:NEXT mm:seite=n:LOC 
ATE #2 ? l,m:GOTO 710 ELSE NEXT m,n 
700 REM Wird der Suchbegrif-F gefunden, 
kann nach Aufforderung weiter- 
gesucht werden 
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710 IF ASC<a*)=6 THEN CLS#4:PRINT#4,n;m; 
: INPUT#4, "Mehr <J/) "; f i *: -f -f *=UPPER* (-ff*) : 
IF f-f*="J“THEN FOR n=seite TO slsFOR m=V 
POS(#2)+1 TO 23:IF INSTR(a*<n,m),f*)>0 T 
HEN CLS#2:FOR mm=l TO 22:PRINT#2,a*<n,mm 
);:NEXT mm:seite=n:L0CATE#2,1,m:GOTO 710 
ELSE NEXT m,n 
720 REM <CTRL> ’D’ 

Drucker /80—Zeichen—Routine 
730 IF ASC(a*)=4 THEN CLS#4 ELSE GOTO 82 
0 

740 INPUT #4,"Drucker angestellt <J/ ) " 

;-ff*:-f-f*=UPPER*(t-f*) : IF LEFT* (f f *, 1) < >■■ J 
" THEN GOTO 820 

750 CLS#4:INPUT #4,"Zeichen pro Zeile (> 
=40) ";z1:IF zl<40 THEN GOTO 750 

760 a*="":FOR z2=l TO sl:FOR z3=l TO 22: 
FOR z4=l TO 40 

770 IF MID*(a*<z2,z3>,z4,1)=" ” THEN z5= 
LENCa*) ELSE IF MID*<a*<z2,z3>,z4,1)=CHR 
* < 241) THEN z4=40:GOTO 790 
780 a*=a*-t-MID* <a* (z2,z3) , z4, 1) : IF LEN (a* 
)=zl THEN PRINT #8,LEFT*(a*,z5):a*=RIGHT 
*(a*,LEN tat)-z5>:GOTO 800 ELSE GOTO 800 
790 PRINT #8,a*:a*="" 

800 IF LEFT*(a*,1)=" " THEN a*=RIGHT*(a* 

,LEN(a*)—1) 

810 NEXT z4,z3,z2:MODE 1:GOTO 100 
820 IF ASC(a*)<32 AND ASC<a*)<>13 THEN a 
$=■' 11 

830 GOTO 280 

840 REM Errorbehandlungsroutine 
850 a*= n ":RESUME NEXT 

860 a$=at+MID$(a*(z2,z3),z4,1):IF (LEN <a 
^)=z1 AND MIDt(at(z2,z3),z4,1)<>" “) THE 
N PRINT LEFT*(a*,z5):a*=RIGHT4<a*,,LEN(a* 
)-z5):GOTO 800 ELSE IF RIGHT*(at,1>=CHR* 
(241) THEN a*=LEFT*(a* ,,LEN(a*)—1):z 4=40 
ELSE GOTO 800 
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Deutscher Zeichensatz 


Alle schimpfen sie darüber, wenn sie Ihren modernen CPC neben 
der alt-ehrwürdigen Schreibmaschine stehen sehen: Auf der einen 
Seite ein internationaler Computer ... natürlich auch mit inter¬ 
nationalem Zeichensatz (also ohne deutsche Umlaute und ’sz 1 ), 
auf der anderen Seite die Schreibmaschine, die über all' diesen 
nützlichen Komfort verfügt, dafür aber halt (normalerweise) kein 
Computer ist. 

Mit diesem Programm machen wir aus Ihrem CPC ein Pendant zur 
Schreibmaschine zumindest was die Tastatur angeht: das 'z 1 sitzt 
dann da, wo es sitzen soll, nämlich beim 'y* - und entsprechend 
umgekehrt. Die Umlaute 'ae', 'ue 1 , 'oe' sowie das 'sz' finden 
sich nun auch auf der Tastatur mehr oder weniger am gleichen Ort 
wie auf der Schreibmaschine. 

Nun werden Sie aber fragen, was denn mit den Tastaturbeschrif¬ 
tungen passiert. Die bleiben vorerst natürlich so, wie sie schon 
immer waren, es sei denn, Sie kleben kleine Zettelchen auf die 
entsprechenden Tastaturoberseiten. 

Und was geschieht mit den alten Zeichen, die eigentlich auf den 
neu belegten Tasten zu finden sind? Im Programmlisting ist die 
jeweilige Zuordnung angegeben (ab Zeile 180). Zum großen Teil 
wird die alte Tastaturbelegung - die internationale - durch 
gleichzeitiges Drücken mit der (CTRL)-Taste erzeugt. 

Sind Sie den deutschen Zeichensatz leid und wollen wieder auf 
der internationalen Tastatur hämmern? Entweder Computer ausstel¬ 
len oder ... von der Zehnertastatur die Taste '0' drücken -) 
wieder die alte => internationale Tastaturbelegung; später ein¬ 
fach die '1' von der Zehnertastatur gedrückt -) wieder die neue 
= deutsche Tastaturbelegung! Diese Umschalterei funktioniert 
allerdings nur, wenn Sie das Programm 'Deutscher Zeichensatz' 
noch im Speicher haben. Vorsicht bei Anwendung von 'RENUM' zum 
Umnummerieren! Die Funktionstasten '1' und '0' (Belegung siehe 
Zeile 120 und 130) müssen dann per Hand umbelegt oder das Pro¬ 
gramm dementsprechend umgeschrieben werden. 
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10 REM Deutscher Zeichensatz 
20 REM CPC464 Basic Programme 
30 REM Copyright 19B4 DATA BECKER St 

Rainer Lueers 

40 SYMBOL AFTER 32 

50 REM Einlesen des deutschen Zeichen 
satzes aus den DATA—Zeilen 
60 FOR m=l TO 7 
70 READ a 
80 FOR n=l TO S 
90 READ aCn) 

100 NEXT n 

110 SYMBOL a,a(l) J a(2),a(3),a(4),a(5) 
6) , a (7) , a (8) 

120 NEXT m 

130 REM Funktionstastenbelegung mit 
Zeilennummer zur Aktivierung 
des alten (0) bzw. neuen (1) 
Zeichensatzes 

140 KEY 1,"GOTO 160 M +CHR4(13) 

150 KEY 0,"GOTO 400"+CHR^(13) 

160 REM Neuer Zeichensatz DEUTSCH 
170 ' ========================= 

180 REM z->y Z->Y CTRL z->z 

190 KEY DEF 71,1,121,89,122 

200 REM y->z Y->Z CTRL y->y 

210 KEY DEF 43,1,122,90,121 

220 REM ;—>ä +->Ä CTRL 

230 KEY DEF 28,1,123,91,59 

240 REM §->ü "ö n ->ü 

250 KEY DEF 26,1,125,93 

260 REM :->"ö M *->ö 

270 KEY DEF 29,1,124,92 

280 REM t-> M ß" ,, # M —>T CTRL T-> n #" 

290 KEY DEF 24,1,126,94,163 
300 REM Ä->: ä->* CTRL Ä->Ä 
310 KEY DEF 17,1,58,42,91 
320 REM ü—>; ü->+ CTRL ü-ü 
330 KEY DEF 19,1,59,43,93 
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340 REM ö->§ 

350 KEY DEF 22,1,64 
360 MODE 1 

370 REM Beispielsatz mit saemtlichen 
Umlauten und sz 

oB0 PRINT"über den großen Fluß gehen zu 
dürfen, das bedeutet für mich ein Ärge 

rnis ohnegleichen ich rufe laut 

'RÖMER' ... mmh ... ein löbliches Wort 
auf ... ääh ... jetzt fällt mir nichts 
mehr ein." 

390 END 

400 REM Alter Zeichensatz INTERNAT. 

420 REM y—>z Y->Z CTRL z-ü"" 

430 KEY DEF 71,1,122,90,26 
440 REM z—>y Z->Y CTRL y->"" 

450 KEY DEF 43,1,121,89,25 
460 REM ä—>; Ä->+ 

470 KEY DEF 28,1,59,43 
480 REM ü—>§ ü—>" ö 11 
490 KEY DEF 26,1,64,124 
500 REM "ö">s ö->* 

510 KEY DEF 29,1,58,42 

520 REM "ß" — >T T— >"# 1 ' CTRL 11 #" — >" " 

530 KEY DEF 24,1,94,163,30 
540 REM :->Ä *->ä CTRL Ä->" 

550 KEY DEF 17,1,91,123,27 
560 REM ;—>ü +->ü CTRL ü—>"" 

570 KEY DEF 19,1,93,125,29 
580 REM §->ö 
590 KEY DEF 22,1,92 
600 END 

610 REM DATA—Zeilen mit deutschen 
Umlauten in Klein- und 
Grossschrift und dem sz 
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620 REM der Buchstabe ’sz’ 

630 DATA 126 

640 DATA Sex 01111000 

650 DATA Sex 11001100 

660 DATA Sex 11001100 

670 DATA Sex 11111000 

680 DATA Sex 11001100 

690 DATA Sex 11001100 

700 DATA Sex 11111000 

710 DATA Sex 11000000 

720 REM der Buchstabe ’ae’ 

730 DATA 123 

740 DATA Sex 01101100 

750 DATA Sex 00000000 

760 DATA Sex 01111000 

770 DATA Sex 00001100 

780 DATA Sex 01111100 

790 DATA Sex 11001100 

800 DATA Sex 01110110 

810 DATA Sex 00000000 

820 REM der Buchstabe ’oe’ 

830 DATA 124 

840 DATA Sex 01101100 

850 DATA Sex 00000000 

860 DATA Sex 00111100 

870 DATA Sex 01100110 

880 DATA Sex 01100110 

890 DATA Sex 01100110 

900 DATA Sex 00111100 

910 DATA Sex 00000000 

920 REM der Buchstabe ’ue’ 

930 DATA 125 

940 DATA Sex 01101100 

950 DATA Sex 00000000 

960 DATA Sex 01100110 

970 DATA Sex 01100110 

980 DATA Sex 01100110 

990 DATA Sex 01100110 

1000 DATA Sex 00111111 

1010 DATA Sex 00000000 
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1020 

REM der 

1030 

DATA 

91 

1040 

DATA 

Sex 

1050 

DATA 

Sex 

1060 

DATA 

Sex 

1070 

DATA 

Sex 

1080 

DATA 

Sex 

1090 

DATA 

Sex 

1100 

DATA 

Sex 

1110 

DATA 

ScX 

1120 

REM der 

1130 

DATA 

92 

1140 

DATA 

Sex 

1150 

DATA 

Sex 

1160 

DATA 

Sex 

1170 

DATA 

Stx 

1180 

DATA 

Sex 

1190 

DATA 

SeX 

1200 

DATA 

Sex 

1210 

DATA 

SeX 

1220 

REM der 

1230 

DATA 

93 

1240 

DATA 

ScX 

1250 

DATA 

Sex 

1260 

DATA 

Sex 

1270 

DATA 

Sex 

1280 

DATA 

Sex 

1290 

DATA 

SeX 

1300 

DATA 

SeX 

1310 

DATA 

SeX 


Buchstabe * AE 

01101100 
00000000 
00011000 
00111100 
01100110 
01111110 
01100110 
00000000 
Buchstabe 'OE 

01101100 
00000000 
01111100 
11000110 
11000110 
11000110 
01111100 
00000000 
Buchstabe *UE 

01101100 

00000000 

01100110 

01100110 

01100110 

01100110 

00111100 

00000000 



über den großen Fluß gehen.zu dürfen, 
das bedeutet für wich ein Ärgernis 
ohnegleichen ... ich.rufe laut 'RÖMER' 

.., nnh ... ein löbliches Mort auf ... 
aäh ... Jetzt fällt wir nichts wehr ein. 

Ready 
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Mathematikzeichensatz 


Dieses Programm gliedert sich lediglich in zwei Abschnitte: 

In Zeile 410 bis Zeile 2560 sind in DATA-Zeilen 24 häufig vor¬ 
kommende mathematische Zeichen samt ihrer Bedeutung aufgeführt. 
Im einzelnen sind es folgende Zeichen, die auf der Tastatur 
durch (CTRL) und eine Buchstabentaste angesprochen werden: 

Bitte (CTRL) und die entsprechend angegebene Buchs tabentaste 

zusammen drücken: 


Alpha 

a 

Beta 

b 

Gamma 

c 

nicht El.v. 

d 

Element v. 

e 

Integral 

f 

Pi 

S 

Sigma 

h 

Omega 

i 

unendlich 

j 

Winkel 

k 

Dreieck 

1 

Viereck 

n 

Kreis 

0 

parall. 

q 

rechtw. zu 

r 

kongruent 

s 

sehnlich 

t 

leere Menge 

u 

1 zu 1 

V 

ungleich 

w 

angenähert 

X 

proportional 

y 

angen.an 

z 


Wir haben hierzu die binäre Darstellungsform gewählt, um Ihnen 
die Möglichkeit zu eröffnen, die DATA-Zeilen nach eigenem Gut¬ 
dünken leicht zu verändern. Hierzu ein Hinweis: Sie dürfen pro 
Zeile nur acht Zeichen vergeben (jeweils Nullen oder Einsen; 
null bedeutet Pixel nicht gesetzt, eins bedeutet Pixel gesetzt). 

Jedes Zeichen muß genau aus acht Zeilen zu je acht Zeichen 
zusammengesetzt sein. Wird irgendwo nur eine DATA-Zeile zu¬ 
sätzlich eingefügt, so verändert sich der nachfolgende Zeichen¬ 
satz vollständig (probieren Sie es ruhig einmal aus!). 

In Zeile 80 bis 390 findet das Einlesen der DATAs durch 'READ 1 
statt. Um die binäre Darstellung auch richtig als Zahlwert zu 
deuten, muß die 'Ol*-Darstellung als String eingelesen werden 
und vor der Umwandlung in eine zu verarbeitende Dezimalzahl 
('VAL') die Kennzeichnung '&x' => Binärzahl vorangestellt werden. 
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Nach dem Starten des Programms mit 'RUN' können die Mathematik¬ 
zeichen durch Drücken eines Buchstabens (siehe Tabelle oben) 
zusammen mit der Taste (CTRL) auf dem Bildschirm dargestellt 
werden. 

Da der normale ASCII-Zeichensatz auch weiterhin gebraucht werden 
soll, haben wir die als Zeichen sonst nicht darstellbaren 
(CTRL)-Codes 1 bis 26 mit den Mathematikzeichen belegt. ASCII- 
Zeichen 13 ließ sich nicht umändern, weil dieser Character 
bereits mit der Bedeutung 'Cursor zur ersten Schreibstelle 1 
vorbelegt war (ENTER)-Taste drücken. Auch ASCII-Zeichen 16 blieb 
ausgespart, da diese Taste bereits die Bedeutung hat: 'Zeichen 
auf Cursorposition loschen'. 
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10 REM Mathematikseichensatz 
20 REM CPC Basic Programme 

30 REM Copyright DATA BECKER & 

Rainer Lueers 

40 RESTORE 
50 SYMBOL AFTER 1 
60 REM Neubelegen der 

ASCII-Zeichen 1 bis 12 
70 REM Ansprechbar durch 

<CTRL> und Buchstabe 
B0 FÜR m=l TO 12 

90 FOR n=l TO 8 

100 READ a* 

110 REM Umbenennen des eingelesenen 
Strings in eine Binaer- und 
dann eine Dezi mal zahl 
120 a*(n>= M &x "+at 
130 a (n> =VAL ( 11 n +at) 

140 NEXT n 

150 SYMBOL m,a(l),a<2),a<3>,a<4>,a(5),a< 
6) ,a<7) ,a(8) 

160 NEXT m 

170 REM Neubelegen der 

ASCII-Zeichen 14 und 15 
180 REM Ansprechen durch 

<CTRL> und Buchstabe 
190 FOR m=14 TO 15 
200 FOR n=l TO 8 
210 READ a$ 

220 REM Umbenennen des eingelesenen 
Strings in eine Binaer— und 
dann ei ne Dezimalzahl 
230 a$ (n) = “ Stx "+a4 
240 a < n) =VAL ( " M +a$) 

250 NEXT n 

260 SYMBOL m, a (1 > , a (2) v a (3) , a (4) , a (5) , a < 
6), a <7) ? a(8> 

270 NEXT m 

280 REM Neubelegung der 

ASCII-Zeichen 17 bis 26 
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290 REM Ansprechen durch 

<CTRL> und Buchstabe 
300 FOR m=17 Tü 26 
310 FOR n=l TO 8 
320 READ a$ 

330 REM Umbenennen des eingelesenen 
Strings in eine Binaer- und 
dann eine Dezimalzahl 
340 a*(n)= ,, Ä f x 
350 a(n)=VAL("Sex M +a$) 

360 NEXT n 

370 SYMBOL m,a(I) l a<2),a(3),a(4) ,a(5) ,a( 
6) , a <7) , a < 8) 

380 NEXT m 
390 END 

400 REM Es -folgt die binaere Darstellung 
des Mathematikzeichensatzes- 
Vorangestel1t ist jeweils in 
einer REM-Zeile die Bedeutung 
des Zeichens 
410 REM Alpha 
420 DATA 00000000 
430 DATA 00011100 
440 DATA 00100100 
450 DATA 01000100 
460 DATA 01000100 
470 DATA 00100100 
480 DATA 00011100 
490 DATA 00000010 
500 REM Beta 
510 DATA 00000000 
520 DATA 01111000 
530 DATA 01000100 
540 DATA 01011000 
550 DATA 01000100 
560 DATA 01000100 
570 DATA 01111000 
580 DATA 10000000 
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590 

REM Gamma 

600 

DATA 

00000000 

610 

DATA 

10000010 

620 

DATA 

01000100 

630 

DATA 

00101000 

640 

DATA 

00010000 

650 

DATA 

00010000 

660 

DATA 

00010000 

670 

DATA 

00010000 

680 

REM nicht Element von 

690 

DATA 

00000000 

700 

DATA 

00000100 

710 

DATA 

00011H0 

720 

DATA 

00100100 

730 

DATA 

0011H10 

740 

DATA 

00100100 

750 

DATA 

0001H10 

760 

DATA 

00000100 

770 

REM Element von 

780 

DATA 

00000000 

790 

DATA 

00000000 

800 

DATA 

00011110 

810 

DATA 

00100000 

820 

DATA 

00111110 

830 

DATA 

00100000 

840 

DATA 

00011110 

850 

DATA 

00000000 

860 

REM : 

Integralzeichen 

870 

DATA 

00110000 

880 

DATA 

00101000 

890 

DATA 

00101000 

900 

DATA 

00100000 

910 

DATA 

00100000 

920 

DATA 

10100000 

930 

DATA 

10100000 

940 

DATA 

01100000 
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950 REM Pi 
960 DATA 00000000 
970 DATA 00000000 
9S0 DATA 01111110 
990 DATA 00100100 


1000 

DATA 

00100100 

1010 

DATA 

00100100 

1020 

DATA 

00100100 

1030 

DATA 

00000000 

1040 

REM Sigma 

1050 

DATA 

00000000 

1060 

DATA 

01111111 

1070 

DATA 

00100001 

1080 

DATA 

00010000 

1090 

DATA 

00010000 

1 100 

DATA 

00100001 

1110 

DATA 

01111111 

1120 

DATA 

00000000 

1130 

REM Omega 

1140 

DATA 

00000000 

1150 

DATA 

00111100 

1160 

DATA 

00100100 

1170 

DATA 

01000010 

1180 

DATA 

01000010 

1190 

DATA 

00100100 

1200 

DATA 

11100111 

1210 

DATA 

00000000 

1220 

REM unendlich 

1230 

DATA 

00000000 

1240 

DATA 

00000000 

1250 

DATA 

01101100 

1260 

DATA 

10010010 

1270 

DATA 

10010010 

1280 

DATA 

10010010 

1290 

DATA 

01101100 

1300 

DATA 

00000000 

1310 

DATA 

00000000 
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1320 REM Winkel 
1330 DATA 00000010 
1340 DATA 00000100 
1350 DATA 00001000 
1360 DATA 00010000 
1370 DATA 00100000 
1380 DATA 01000000 
1390 DATA 11111110 
1400 REM Dreieck 
1410 DATA 00000000 
1420 DATA 00000000 
1430 DATA 00000000 
1440 DATA 00010000 
1450 DATA 00101000 
1460 DATA 01000100 
1470 DATA 11111110 
1480 DATA 00000000 
1490 REM Viereck 
1500 DATA 11111110 
1510 DATA 10000010 
1520 DATA 10000010 
1530 DATA 10000010 
1540 DATA 10000010 
1550 DATA 10000010 
1560 DATA 11111110 
1570 DATA 00000000 
1580 REM Kreis 
1590 DATA 00000000 
1600 DATA 01111100 
1610 DATA 10000010 
1620 DATA 10000010 
1630 DATA 10000010 
1640 DATA 10000010 
1650 DATA 01111100 
1660 DATA 00000000 
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1670 

1690 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1790 

1790 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1990 

1990 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 


REM parallel zu 
DATA 01001000 
DATA 01001000 
DATA 01001000 
DATA 01001000 
DATA 01001000 
DATA 01001000 
DATA 01001000 
DATA 01001000 
REM rechtwinklig zu 
DATA 00010000 
DATA 00010000 
DATA 00010000 
DATA 00010000 
DATA 00010000 
DATA 00010000 
DATA 11111110 
DATA 00000000 
REM kongruent 
DATA 01100000 
DATA 10011001 
DATA 00000110 
DATA 00000000 
DATA 11111111 

data 00000000 

DATA 11111111 

DATA 00000000 

REM aehnlich, proportional 

DATA 00000000 

DATA 00000000 

DATA 00000000 

DATA 01100000 

DATA 10011001 

DATA 00000110 

DATA 00000000 

DATA 00000000 
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2030 REM 1eere Menge 

2040 DATA 00000010 

2050 DATA 01111100 

2060 DATA 10001010 

2070 DATA 10010010 

2080 DATA 10100010 

2090 DATA 01111100 

2100 DATA 10000000 

2110 DATA 00000000 

2120 REM 1 zu 1 

2130 DATA 00000000 

2140 DATA 00100100 

2150 DATA 01000010 

2160 DATA 11111111 

2170 DATA 01000010 

2180 DATA 00100100 

2190 DATA 00000000 

2200 DATA 00000000 

2210 REM nicht gleich, ungleich 

2220 DATA 00000001 

2230 DATA 00000010 

2240 DATA 11111111 

2250 DATA 00001000 

2260 DATA 11111111 

2270 DATA 00100000 

2280 DATA 01000000 

2290 DATA 00000000 

2300 REM angenaehert, nahezu gleich 

2310 DATA 00000000 

2320 DATA 01100000 

2330 DATA 10011001 

2340 DATA 00000110 

2350 DATA 01100000 

2360 DATA 10011001 

2370 DATA 00000110 

2380 DATA 00000000 
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2390 

REM proportional zu 

2400 

DATA 

00000000 

2410 

DATA 

00000000 

2420 

DATA 

01110111 

2430 

DATA 

10001000 

2440 

DATA 

10001000 

2450 

DATA 

10001000 

2460 

DATA 

01110111 

2470 

DATA 

00000000 

2480 

REM angenaehert an Wert 

2490 

DATA 

00000000 

2500 

DATA 

00000100 

2510 

DATA 

00000010 

2520 

DATA 

11111111 

2530 

DATA 

00000010 

2540 

DATA 

00000100 

2550 

DATA 

00000000 

2560 

DATA 

00000000 
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Computerzeichensatz 


Ehrlich eingestanden kann man feststellen, daß der Zeichensatz 
des CPC sehr schön aussieht. Obgleich die Zeichen wie auch bei 
anderen Computern nur in einer 8*8 - Matrix erstellt sind (je¬ 
weils 8 horizontal und 8 vertikal gesetzte oder nicht gesetzte 
Pixel), muten sie mit der gewählten Detailtreue (schaut man sich 
z.B. die 1 4* oder den Buchstaben 'n' an) schreibmaschinenähnlich 
an. 

Warum jetzt noch einen anderen Zeichensatz? Seit Jahren hält die 
Euphorie für Computerspiele an; warum soll für dieses futuri¬ 
stische Etwas der normale Zeichensatz herhalten - her mit dem 
entsprechenden Computerzeichensatz! 

Das Programm gliedert sich in zwei Hauptteile: 

1) Ein fast unübersehbares DATA-Zeichenmeer mit dem Coraputerzei- 
chensatz 

2) Die Verarbeitungs- und Laderoutine für die DATAS. 

Auf Punkt 2 wollen wir etwas näher eingehen: Der CPC stellt 
alles (auch Buchstaben und andere Zeichen) auf dem Bildschirm 
grafisch dar. So ist es im Gegensatz zu anderen Computern auch 
verhältnismäßig leicht möglich, nicht nur Text mit Grafik zu 
mischen, nein auch dasselbe Charakterzeichen mehrfach in unter¬ 
schiedlichem Aussehen auf der Bildschirmseite abzubilden. Dieser 
Zweck wurde im Programm 1 Computerzeichensatz 1 folgendermaßen 
ausgenutzt: Es kann einerseits der gesamte Zeichensatz in Compu¬ 
terschrift umgewandelt werden, es kann andererseits mit Normal- 
und Computerzeichensatz gleichzeitig gearbeitet werden. 

Mit dem komfortablen SYMBOL-Befehl dürfte Möglichkeit eins klar 
sein. 

Wie werden aber zwei Zeichensätze gleichzeitig im Speicher ge¬ 
halten? Hierfür ist es notwendig, daß das Programm weiterläuft, 
denn so viele verschiedene Zeichen kann man nicht so einfach 
gleichzeitig mit der Tastatur ansprechen. Dafür haben wir nun 
bei laufendem Programm einen Schalter zwischen den Zeichensätzen 
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eingebaut: (TAB) gedrückt -) Computerzeichensatz an, (TAB) wie¬ 

der gedrückt -) Normalzeichensatz an usw. 

Programmtechnisch spielt sich folgendes ab: Der ASCII-Code des 
gewünschten Zeichens wird interpretiert (z.B. 1 !* = 33); dazu 

wird das entsprechende Computerzeichensatzild gesucht und 
nicht mit 'SYMBOL 1 über unseren gewählten Buchstaben in Normal¬ 
schrift gelegt (dann wäre dieser nämlich fortan Computerzei¬ 
chen!) ... in ein nicht benötigtes Zeichen ('CHR$(255)') gela¬ 
den. Letzteres Zeichen wird daraufhin immer und immer wieder, 
jedoch in dem gewünschten Aussehen, als Computerschriftzeichen 
zur Abbildung gebracht. 


Bitte aetoen Sie etwas ein! Soll es in 
"conpuferschriff erscheinen, so druei 
sie bitte vorher die <TfiB)-Taste, 
So?l in Norm 1 sch**if t uei terseschr i e- 
hpn werden, so druecken Sie bitte wie 
de? die <TAB>Taste Sollen alle 
Zeichen von nun an (auch das Listing) 
in Conputerschrift erscheinen, so 
druecken Sie bitte jetzt die laste j J > j 
Headsi 

7 : fsr ri-3E tu 555.pr*nt chrUn] ; : next 

i "»StfÄ * - ./□LB3li5B7 , fl c V: ; < = > ?@HÜD[lEf=G 

Hi JKt HHaPQB5TUygNyai\ ] t ' ahi de tah* ik lmn 


djiXu£n 

r fei * $©*•♦*+<>• 


BEad#,„ 

1 ist ID 

LO REN Cdmpii ter st hr i f t 
Ready 
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10 REM Computerschrift 

20 REM CPC464 Basic Programme 

30 REM Copyright 1984 DATA BECKER St 

Rainer Lueers 

40 MODE 1 
50 DIM a(122,8) 

60 REM Umdefinierbaren Zeichenraum 
frei geben 

70 REM Einlesen der Computerschrift in 
die dimensionierte Variable a 
80 SYMBOL AFTER 32 

90 REM Zeichencode und Zeichenausehen 

vorlaeufig in die dimensionierte 
Variable 7 a 7 laden 
100 FOR n=l TO 73 
110 READ a 
120 FOR m=l TO 8 
130 READ a* 

140 REM Umwandlung von der Stringdar¬ 
stellung in eine Binaerzahl und 
anschliessend in eine Dezimal- 
zahl 

150 a$="Stx "+a$ 

160 a(a ? m)=VAL(a$) 

170 NEXT m 
180 NEXT n 

190 REM Auswahlmoeglichkeiten: 

1) bei laufendem Programm 

Text in Computerschrift oder 
Normal sehrift einzugeben 

2) den ganzen Zeichensatz in 
Computerschrift umzuwandeln 

200 PRINT "Bitte geben Sie etwas ein! So 
11 es in 7 Computerschrift 7 erscheinen, 
so druek- ken Sie bitte vorher die <TAB 
>—Taste- Soll in Normalschrift weiterg 
eschrie— ben werden, so druecken Sie b 
itte wie— der die <TAB>—Taste- Sol 1 en a 
Ile" 
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210 PRINT "Zeichen von nun an (auch das 
Listing) in Computerschritt erscheinen 
5 so druecken Sie bitte jetzt die 

Taste j " ; :a*="":INPUT a* 

220 a*=UPPER*(a*):IF a*="J" THEN GOTO 51 
0 

230 REM Der Normalzeichensatz bleibt 

erhalten, nur einzelne Buchsta¬ 
ben werden aut Wunsch in Com- 
puterzeichen umgewandelt 
240 PRINT 

250 PRINT "Bitte jetzt Text eingeben" 

260 PRINT 
270 a*=INKEY* 

280 IF a*="" THEN GOTO 270 

290 REM Kleiner Texteditor: Die Tasten 

< ENTER >=13, <TAB>=9 und < DELETE > 
=127 werden interpretiert 
300 IF ASC < a*)=9 THEN GOTO 360 
310 IF ASC(a*)=13 THEN PRINT:GüIÜ 2/0 
320 IF ASC(a*> = 127 THEN a*="":IF POS(#0) 
>1 THEN LOCATE POS(#0)-1,VPOS(#0)sPRINT 
" ";:LOCATE POS(#0)-1,VPOS(#0 >:GOTO 270 
330 PRINT a*; 

340 GOTO 270 

350 END 

360 a*=INKEY* 

370 IF a*="" THEN GOTO 360 

380 REM Kleiner Texteditor: Die Tasten 

<ENTER>=13, <TAB>=9 und <DELETE> 
=127 werden interpretiert 
390 IF ASC(a*)=9 THEN GOTO 270 
400 IF ASC(a*)=13 THEN PRINT:GOTO 360 
410 IF ASC(a*> =127 THEN a*="":IF POS(#0) 
>1 THEN LOCATE POS(#0)-1,VPOS(#0):PRINT 
" LOCATE POS(#0)-1,VPOS(#0):GOTO 360 
ELSE GOTO 360 

420 IF ASC(a*)>122 THEN PRINT a*;:GOTO 3 
60 
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430 IF a(A5C(a$),i)=0 AND a(ASC(a$),2)=0 
AND a(ABC <a$> , 3 >=0 AND aCASC<a*>,4)=0 A 
ND a(ASC(a$) s 5)=0 AND a(ASC<a*),6)=0 AND 
a<ASC(a*>,7)=0 AND a<ASC<a*>,8)=0 THEN 
PRINT a$;:GOTO 360 

440 REM Damit der normale Zeichensatz 

nicht zerstoert wird, wird jedes 
Zeichen als ein umgewandelter 
CHR*(255) dargestellt 
450 z=ASC(a$> 

460 SYMBOL 255,a(z,1),a(z,2>,a(z,3),a(z, 
4) ,a(z , 5) , a (z , 6) , a (z , 7) ^ a (z j 8) 

470 PRINT CHR*<255); 

480 GOTO 360 
490 END 

500 REM Einlesen der Computerschrift und 
direkte Veraenderung des 
normalen Zeichensatzes 
510 RESTORE 
520 FOR n=l TO 73 
530 READ m 
540 FOR o=l TO 8 
550 READ p4 

560 REM Umwandlung von der Stringdar¬ 
stellung in eine Binaerzahl und 
anschliessend in eine Dezimal— 
zahl 

570 p*="«ex "+pt 
580 b(o)=VAL(p*> 

590 NEXT o 

600 SYMBOL m,b(l), b (2),b<3),b<4),b(5),b( 
6) , b (7) , b (8) 

610 NEXT n 
620 END 
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630 REM ! 

640 DATA 33 
650 DATA 00111000 
660 DATA 00111000 
670 DATA 00111000 
680 DATA 00111000 
690 DATA 00011000 
700 DATA 00000000 
710 DATA 00011000 
720 DATA 00000000 
730 REM " 

740 DATA 34 
750 DATA 01100110 
760 DATA 01100110 
770 DATA 01100110 
780 DATA 00000000 
790 DATA 00000000 
800 DATA 00000000 
810 DATA 00000000 
820 DATA 00000000 
830 REM # 

840 DATA 35 
850 DATA 01100110 
860 DATA 11111111 
870 DATA 01100110 
880 DATA 01100110 
890 DATA 11111111 
900 DATA 01100110 
910 DATA 00000000 
920 DATA 00000000 
930 REM ’ 

940 DATA 39 
950 DATA 00011000 
960 DATA 00011000 
970 DATA 00011000 
980 DATA 00000000 
990 DATA 00000000 
1000 DATA 00000000 
1010 DATA 00000000 
1020 DATA 00000000 
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1030 

REM ( 


1040 

DATA 

40 

1050 

DATA 

00011110 

1060 

DATA 

00011000 

1070 

DATA 

00011000 

1080 

DATA 

00111000 

1090 

DATA 

00111000 

1100 

DATA 

00111000 

1110 

DATA 

00111110 

1120 

DATA 

00000000 

1130 

REM ) 


1140 

DATA 

41 

1150 

DATA 

01111000 

1160 

DATA 

00011000 

1170 

DATA 

00011000 

1180 

DATA 

00011100 

1190 

DATA 

00011100 

1200 

DATA 

00011100 

1210 

DATA 

01111100 

1220 

DATA 

00000000 

1230 

REM 0 

1240 

DATA 

48 

1250 

DATA 

01111111 

1260 

DATA 

01100011 

1270 

DATA 

01100011 

1280 

DATA 

01100011 

1290 

DATA 

01100011 

1300 

DATA 

01100011 

1310 

DATA 

01111111 

1320 

DATA 

00000000 

1330 

REM : 

1 

1340 

DATA 

09 

1350 

DATA 

00111000 

1360 

DATA 

00011000 

1370 

DATA 

00011000 

1380 

DATA 

00011000 

1390 

DATA 

00111110 

1400 

DATA 

00111110 

1410 

DATA 

00111110 

1420 

DATA 

00000000 



1430 

REM 2 

1440 

DATA 

50 

1450 

DATA 

01111111 

1460 

DATA 

00000011 

1470 

DATA 

00000011 

1480 

DATA 

01111111 

1490 

DATA 

01100000 

1500 

DATA 

01100000 

1510 

DATA 

01111111 

1520 

DATA 

00000000 

1530 

REM 3 

1540 

DATA 

51 

1550 

DATA 

01111110 

1560 

DATA 

00000110 

1570 

DATA 

00000110 

1580 

DATA 

01111111 

1590 

DATA 

00000111 

1600 

DATA 

00000111 

1610 

DATA 

11111111 

1620 

DATA 

00000000 

1630 

REM 4 

1640 

DATA 

N 

in 

1650 

DATA 

01110000 

1660 

DATA 

01110000 

1670 

DATA 

01110000 

1680 

DATA 

01110111 

1690 

DATA 

01110111 

1700 

DATA 

01111111 

1710 

DATA 

00000111 

1720 

DATA 

00000000 

1730 

REM 5 

1740 

DATA 

53 

1750 

DATA 

01111111 

1760 

DATA 

01100000 

1770 

DATA 

01100000 

1780 

DATA 

01111111 

1790 

DATA 

00000111 

1800 

DATA 

00000111 

1810 

DATA 

01111111 

1820 

DATA 

00000000 



1830 

REM 6 


1840 

DATA 

54 

1850 

DATA 

01111100 

1860 

DATA 

01101100 

1870 

DATA 

01100000 

1880 

DATA 

01111111 

1890 

DATA 

01100011 

1900 

DATA 

01100011 

1910 

DATA 

01111111 

1920 

DATA 

00000000 

1930 

REM 1 

r 

1940 

DATA 

55 

1950 

DATA 

01111111 

1960 

DATA 

00000011 

1970 

DATA 

00000011 

1980 

DATA 

00011111 

1990 

DATA 

00011000 

2000 

DATA 

00011000 

2010 

DATA 

00011000 

2020 

DATA 

00000000 

2030 

REM 8 

2040 

DATA 

56 

2050 

DATA 

00111110 

2060 

DATA 

00110110 

2070 

DATA 

00110110 

2080 

DATA 

01111111 

2090 

DATA 

01110111 

2100 

DATA 

01110111 

2110 

DATA 

01111111 

2120 

DATA 

00000000 

2130 

REM ( 

? 

2140 

DATA 

57 

2150 

DATA 

01111111 

2160 

DATA 

01100011 

2170 

DATA 

01100011 

2180 

DATA 

01111111 

2190 

DATA 

00000111 

2200 

DATA 

00000111 

2210 

DATA 

00000111 

2220 

DATA 

00000000 
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2240 DATA 
2250 DATA 
2260 DATA 
2270 DATA 
2280 DATA 
2290 DATA 
2300 DATA 
2310 DATA 
2320 DATA 
2330 REM : 
2340 DATA 
2350 DATA 
2360 DATA 
2370 DATA 
2380 DATA 
2390 DATA 
2400 DATA 
2410 DATA 
2420 DATA 
2430 REM = 
2440 DATA 
2450 DATA 
2460 DATA 
2470 DATA 
2480 DATA 
2490 DATA 
2500 DATA 
2510 DATA 
2520 DATA 
2530 REM ' 
2540 DATA 
2550 DATA 
2560 DATA 
2570 DATA 
2580 DATA 
2590 DATA 
2600 DATA 
2610 DATA 
2620 DATA 


58 

00000000 

00011000 

00011000 

00000000 

00011000 

00011000 

00000000 

00000000 

59 

00000000 

00011000 

00011000 

00000000 

00011000 

00011000 

00110000 

00000000 

61 

00000000 

01111110 

00000000 

00000000 

01111110 

00000000 

00000000 

00000000 

> 

63 

01111111 

01100011 

00000011 

00011111 

00011100 

00000000 

00011100 

00000000 



2630 

REM i 


2640 

DATA 

64 

2650 

DATA 

01111111 

2660 

DATA 

01100011 

2670 

DATA 

01101111 

2690 

DATA 

01101111 

2690 

DATA 

01101111 

2700 

DATA 

01100000 

2710 

DATA 

01111111 

2720 

DATA 

00000000 

2730 

REM £ 

> 

2740 

DATA 

65 

2750 

DATA 

00111111 

2760 

DATA 

00110011 

2770 

DATA 

00110011 

2780 

DATA 

01111111 

2790 

DATA 

01110011 

2800 

DATA 

01110011 

2810 

DATA 

01110011 

2820 

DATA 

00000000 

2830 

REM B 

2840 

DATA 

66 

2850 

DATA 

01111110 

2860 

DATA 

01100110 

2870 

DATA 

01100110 

2880 

DATA 

01111111 

2890 

DATA 

01100111 

2900 

DATA 

01100111 

2910 

DATA 

01111111 

2920 

DATA 

00000000 

2930 

REM C 

2940 

DATA 

67 

2950 

DATA 

01111111 

2960 

DATA 

01100111 

2970 

DATA 

01100111 

2980 

DATA 

01100000 

2990 

DATA 

01100011 

3000 

DATA 

01100011 

3010 

DATA 

01111111 

3020 

DATA 

00000000 


- 79 - 



3030 

REM E 

i 

3040 

DATA 

68 

3050 

DATA 

01111110 

3060 

DATA 

01100110 

3070 

DATA 

01100110 

3080 

DATA 

01110111 

3090 

DATA 

01110111 

3100 

DATA 

01110111 

3110 

DATA 

01111111 

3120 

DATA 

00000000 

3130 

REM E 


3140 

DATA 

69 

3150 

DATA 

01111111 

3160 

DATA 

01100000 

3170 

DATA 

01100000 

3180 

DATA 

01111111 

3190 

DATA 

01110000 

3200 

DATA 

01110000 

3210 

DATA 

01111111 

3220 

DATA 

00000000 

3230 

REM F 

3240 

DATA 

70 

3250 

DATA 

01111111 

3260 

DATA 

01100000 

3270 

DATA 

01100000 

3280 

DATA 

01111111 

3290 

DATA 

01110000 

3300 

DATA 

01110000 

3310 

DATA 

01110000 

3320 

DATA 

00000000 

3330 

REM G 

3340 

DATA 

71 

3350 

DATA 

01111111 

3360 

DATA 

01100011 

3370 

DATA 

01100000 

3380 

DATA 

01101111 

3390 

DATA 

01100111 

3400 

DATA 

01100111 

3410 

DATA 

01111111 

3420 

DATA 

00000000 
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3430 

REM H 

3440 

DATA 

72 

3450 

DATA 

01110011 

3460 

DATA 

01110011 

3470 

DATA 

01110011 

3480 

DATA 

01111111 

3490 

DATA 

01110011 

3500 

DATA 

01110011 

3510 

DATA 

01110011 

3520 

DATA 

00000000 

3530 

REM I 


3540 

DATA 

73 

3550 

DATA 

00001100 

3560 

DATA 

00001100 

3570 

DATA 

00001100 

3580 

DATA 

00001100 

3590 

DATA 

00111100 

3600 

DATA 

00111100 

3610 

DATA 

00111100 

3620 

DATA 

00000000 

3630 

REM J 

3640 

DATA 

74 

3650 

DATA 

00001100 

3660 

DATA 

00001100 

3670 

DATA 

00001100 

3680 

DATA 

00001110 

3690 

DATA 

00001110 

3700 

DATA 

01101110 

3710 

DATA 

01111110 

3720 

DATA 

00000000 

3730 

REM K 

3740 

DATA 

75 

3750 

DATA 

01100110 

3760 

DATA 

01100110 

3770 

DATA 

01101100 

3780 

DATA 

01111111 

3790 

DATA 

01100111 

3800 

DATA 

01100111 

3810 

DATA 

01100111 

3820 

DATA 

00000000 
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3830 

REM L 


3840 

DATA 

76 

3850 

DATA 

00110000 

3860 

DATA 

00110000 

3870 

DATA 

00110000 

3880 

DATA 

01110000 

3890 

DATA 

01110000 

3900 

DATA 

01110000 

3910 

DATA 

01111110 

3920 

DATA 

00000000 

3930 

REM M 

3940 

DATA 

77 

3950 

DATA 

01100111 

3960 

DATA 

01111111 

3970 

DATA 

01111111 

3980 

DATA 

01110111 

3990 

DATA 

01100111 

4000 

DATA 

01100111 

4010 

DATA 

01100111 

4020 

DATA 

00000000 

4030 

REM N 

4040 

DATA 

78 

4050 

DATA 

01100111 

4060 

DATA 

01110111 

4070 

DATA 

01111111 

4080 

DATA 

01101111 

4090 

DATA 

01100111 

4100 

DATA 

01100111 

4110 

DATA 

01100111 

4120 

DATA 

00000000 

4130 

REM ü 

4140 

DATA 

79 

4150 

DATA 

01111111 

4160 

DATA 

01100011 

4170 

DATA 

01100011 

4180 

DATA 

01100111 

4190 

DATA 

01100111 

4200 

DATA 

01100111 

4210 

DATA 

01111111 

4220 

DATA 

00000000 
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4230 

REM P 


4240 

DATA 

80 

4250 

DATA 

01111111 

4260 

DATA 

01100011 

4270 

DATA 

01100011 

4280 

DATA 

01111111 

4290 

DATA 

01110000 

4300 

DATA 

01110000 

4310 

DATA 

01110000 

4320 

DATA 

00000000 

4330 

REM Q 

4340 

DATA 

81 

4350 

DATA 

01111111 

4360 

DATA 

01100011 

4370 

DATA 

01100011 

4380 

DATA 

01100111 

4390 

DATA 

01100111 

4400 

DATA 

01100111 

4410 

DATA 

01111111 

4420 

DATA 

00000111 

4430 

REM R 

4440 

DATA 

82 

4450 

DATA 

01111110 

4460 

DATA 

01100110 

4470 

DATA 

01100110 

4480 

DATA 

01111111 

4490 

DATA 

01110111 

4500 

DATA 

01110111 

4510 

DATA 

01110111 

4520 

DATA 

00000000 

4530 

REM i 

3 

4540 

DATA 

83 

4550 

DATA 

01111111 

4560 

DATA 

01100000 

4570 

DATA 

01111111 

4580 

DATA 

00000011 

4590 

DATA 

01110011 

4600 

DATA 

01110011 

4610 

DATA 

01111111 

4620 

DATA 

00000000 
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4630 

REM 1 

■ 

4640 

DATA 

84 

4650 

DATA 

01111111 

4660 

DATA 

00011100 

4670 

DATA 

00011100 

4680 

DATA 

00011100 

4690 

DATA 

00011100 

4700 

DATA 

00011100 

4710 

DATA 

00011100 

4720 

DATA 

00000000 

4730 

REM ü 

4740 

DATA 

85 

4750 

DATA 

01100111 

4760 

DATA 

01100111 

4770 

DATA 

01100111 

4780 

DATA 

01100111 

4790 

DATA 

01100111 

4800 

DATA 

01100111 

4810 

DATA 

01111111 

4820 

DATA 

00000000 

4830 

REM V 

4840 

DATA 

86 

4850 

DATA 

01100111 

4860 

DATA 

01100111 

4870 

DATA 

01100111 

4880 

DATA 

01100111 

4890 

DATA 

01101111 

4900 

DATA 

00111110 

4910 

DATA 

00011100 

4920 

DATA 

00000000 

4930 

REM W 

4940 

DATA 

87 

4950 

DATA 

01100111 

4960 

DATA 

01100111 

4970 

DATA 

01100111 

4980 

DATA 

01101111 

4990 

DATA 

01111111 

5000 

DATA 

01111111 

5010 

DATA 

01100111 

5020 

DATA 

00000000 
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5030 REM X 
5040 DATA 88 
5050 DATA 01110011 
5060 DATA 01110011 
5070 DATA 01110011 
5080 DATA 00111110 
5090 DATA 01100111 
5100 DATA 01100111 
5110 DATA 01100111 
5120 DATA 00000000 
5130 REM Y 
5140 DATA 89 
5150 DATA 01100111 
5160 DATA 01100111 
5170 DATA 01100111 
5180 DATA 01111111 
5190 DATA 00011100 
5200 DATA 00011100 
5210 DATA 00011100 
5220 DATA 00000000 
5230 REM Z 
5240 DATA 90 
5250 DATA 01111111 
5260 DATA 01100110 
5270 DATA 01101100 
5280 DATA 00011000 
5290 DATA 00110111 
5300 DATA 01100111 
5310 DATA 01111111 
5320 DATA 00000000 
5330 REM a 
5340 DATA 97 
5350 DATA 00000000 
5360 DATA 00000000 
5370 DATA 00111110 
5380 DATA 00000110 
5390 DATA 01111110 
5400 DATA 01100110 
5410 DATA 01111110 
5420 DATA 00000000 
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5430 

REM t 

> 

5440 

DATA 

98 

5450 

DATA 

00000000 

5460 

DATA 

01110000 

5470 

DATA 

01110000 

5480 

DATA 

01111110 

5490 

DATA 

01110110 

5500 

DATA 

01110110 

5510 

DATA 

01111110 

5520 

DATA 

00000000 

5530 

REM c 


5540 

DATA 

99 

5550 

DATA 

00000000 

5560 

DATA 

00000000 

5570 

DATA 

01111100 

5580 

DATA 

01110000 

5590 

DATA 

01110000 

5600 

DATA 

01110000 

5610 

DATA 

01111100 

5620 

DATA 

00000000 

5630 

REM c 

i 

5640 

DATA 

100 

5650 

DATA 

00000000 

5660 

DATA 

00000110 

5670 

DATA 

00000110 

5680 

DATA 

01111110 

5690 

DATA 

01101110 

5700 

DATA 

01101110 

5710 

DATA 

01111110 

5720 

DATA 

00000000 

5730 

REM g 

i 

5740 

DATA 

101 

5750 

DATA 

00000000 

5760 

DATA 

00000000 

5770 

DATA 

01111110 

5780 

DATA 

01100110 

5790 

DATA 

01111110 

5300 

DATA 

01100000 

5810 

DATA 

01111110 

5320 

DATA 

00000000 
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5830 REM f 
5840 DATA 102 
5350 DATA 00000000 
5860 DATA 00011110 
5870 DATA 00011000 
5880 DATA 00111110 
5890 DATA 00011000 
5900 DATA 00011000 
5910 DATA 00011000 
5920 DATA 00000000 
5930 REM g 
5940 DATA 103 
5950 DATA 00000000 
5960 DATA 00000000 
5970 DATA 01111110 
5980 DATA 01101110 
5990 DATA 01101110 
6000 DATA 01111110 
6010 DATA 00001110 
6020 DATA 01111110 
6030 REM h 
6040 DATA 104 
6050 DATA 00000000 
6060 DATA 01110000 
6070 DATA 01110000 
6080 DATA 01111100 
6090 DATA 01110110 
6100 DATA 01110110 
6110 DATA 01110110 
6120 DATA 00000000 
6130 REM i 
6140 DATA 105 
6150 DATA 00000000 
6160 DATA 00011000 
6170 DATA 00000000 
6180 DATA 00011000 
6190 DATA 00011000 
6200 DATA 00111100 
6210 DATA 00111100 
6220 DATA 00000000 
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6230 

REM j 

i 

6240 

DATA 

106 

6250 

DATA 

00000000 

6260 

DATA 

00001110 

6270 

DATA 

00000000 

6280 

DATA 

00001110 

6290 

DATA 

00001110 

6300 

DATA 

00001110 

6310 

DATA 

00001110 

6320 

DATA 

00111110 

6330 

REM k 

6340 

DATA 

107 

6350 

DATA 

00000000 

6360 

DATA 

01100000 

6370 

DATA 

01100000 

6380 

DATA 

01101100 

6390 

DATA 

01111000 

6400 

DATA 

01101100 

6410 

DATA 

01100110 

6420 

DATA 

00000000 

6430 

REM 1 


6440 

DATA 

108 

6450 

DATA 

00000000 

6460 

DATA 

00111100 

6470 

DATA 

00011100 

6480 

DATA 

00011100 

6490 

DATA 

00011100 

6500 

DATA 

00011100 

6510 

DATA 

/£|00 11100 

6520 

DATA 

00000000 

6530 

REM m 

ö540 

DATA 

109 

6550 

DATA 

00000000 

6560 

DATA 

00000000 

6570 

DATA 

01100111 

6580 

DATA 

01111111 

6590 

DATA 

01111111 

6600 

DATA 

01101011 

6610 

DATA 

01100011 

6620 

DATA 

00000000 
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6630 

REM n 

6640 

DATA 

110 

6650 

DATA 

00000000 

6660 

DATA 

00000000 

6670 

DATA 

01111110 

6680 

DATA 

01111110 

6690 

DATA 

01100110 

6700 

DATA 

01100110 

6710 

DATA 

01100110 

6720 

DATA 

00000000 

6730 

REM c 

> 

6740 

DATA 

111 

6750 

DATA 

00000000 

6760 

DATA 

00000000 

6770 

DATA 

01111110 

6780 

DATA 

01101110 

6790 

DATA 

01101110 

6800 

DATA 

01101110 

6810 

DATA 

01111110 

6820 

DATA 

00000000 

6830 

REM p 

6840 

DATA 

112 

6350 

DATA 

00000000 

6860 

DATA 

00000000 

6870 

DATA 

01111110 

6880 

DATA 

01110110 

6890 

DATA 

01110110 

6900 

DATA 

01111110 

6910 

DATA 

01110000 

6920 

DATA 

01110000 

6930 

REM < 

q 

6940 

DATA 

113 

6950 

DATA 

00000000 

6960 

DATA 

00000000 

6970 

DATA 

01111110 

6980 

DATA 

01101110 

6990 

DATA 

01101110 

7000 

DATA 

01111110 

7010 

DATA 

00001110 

7020 

DATA 

00001110 
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7030 

REM r 


7040 

DATA 

114 

7050 

DATA 

00000000 

7060 

DATA 

00000000 

7070 

DATA 

01111110 

7080 

DATA 

01110110 

7090 

DATA 

01110000 

7100 

DATA 

01110000 

7110 

DATA 

01110000 

7120 

DATA 

00000000 

7130 

REM 5 

7140 

DATA 

115 

7150 

DATA 

00000000 

7160 

DATA 

00000000 

7170 

DATA 

01111110 

7180 

DATA 

01100000 

7190 

DATA 

01111110 

7200 

DATA 

00001110 

7210 

DATA 

01111110 

7220 

DATA 

00000000 

7230 

REM t 

7240 

DATA 

116 

7250 

DATA 

00000000 

7260 

DATA 

00111000 

7270 

DATA 

01111110 

7280 

DATA 

00111000 

7290 

DATA 

00111000 

7300 

DATA 

00111000 

7310 

DATA 

00111110 

7320 

DATA 

00000000 

7330 

REM u 

7340 

DATA 

117 

7350 

DATA 

00000000 

7360 

DATA 

00000000 

7370 

DATA 

01101110 

7380 

DATA 

01101110 

7390 

DATA 

01101110 

7400 

DATA 

01101110 

7410 

DATA 

01111110 

7420 

DATA 

00000000 
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7430 

REM v 


7440 

DATA 

118 

7450 

DATA 

00000000 

7460 

DATA 

00000000 

7470 

DATA 

01101110 

7480 

DATA 

01101110 

7490 

DATA 

01101110 

7500 

DATA 

00111100 

7510 

DATA 

00011000 

7520 

DATA 

00000000 

7530 

REM w 

7540 

DATA 

119 

7550 

DATA 

00000000 

7560 

DATA 

00000000 

7570 

DATA 

01100011 

7580 

DATA 

01101011 

7590 

DATA 

01111111 

7600 

DATA 

01111111 

7610 

DATA 

00110110 

7620 

DATA 

00000000 

7630 

REM x 

7640 

DATA 

120 

7650 

DATA 

00000000 

7660 

DATA 

00000000 

7670 

DATA 

01100110 

7680 

DATA 

00111100 

7690 

DATA 

00011000 

7700 

DATA 

00111100 

7710 

DATA 

01100110 

7720 

DATA 

00000000 

7730 

REM > 

/ 

7740 

DATA 

121 

7750 

DATA 

00000000 

7760 

DATA 

00000000 

7770 

DATA 

01101110 

7780 

DATA 

01101110 

7790 

DATA 

01101110 

7800 

DATA 

01111110 

7810 

DATA 

00001110 

7820 

DATA 

01111110 
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7830 REM z 
7840 DATA 122 
7850 DATA 00000000 
7860 DATA 00000000 
7870 DATA 01111110 
7880 DATA 00001100 
7890 DATA 00011000 
7900 DATA 00110000 
7910 DATA 01111110 
7920 DATA 00000000 

7930 a*=INKEY*:IF a*= n " THEN GOTO 7930 
7940 PRINT ASC <a$):GOTO 7930 
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Errormeldungen 


Manchmal ist es wie verhext: Man gibt sein lange Zeit ausgear¬ 
beitetes BASIC-Programm in den Computer ein und trotz größter 
Bemühungen, hier und da treten laufend Fehler auf* 

Da der CPC ursprünglich nicht aus Deutschland stammt, werden die 
Fehlermeldungen selbstverständlich in englischer Sprache ausge¬ 
worfen. Da der CPC zudem nicht über unbegrenzten Speicherraum 
verfügt, sind diese Fehlermeldungen oft nur ein allzu kurzer 
Hinweis ('Syntax error', 'Type mismatch' ...). 

Diesen Hinweis lernt der eifrige Computerprogrammierer mit der 
Zeit richtig kennen und zu verstehen, aber bis dahin ist es oft 
noch ein weiter Weg. Aus diesem Grund haben wir ein ausführli¬ 
ches Errormeldungsprogramm in diese Programmsammlung mit aufge- 
nummen. Da der CPC den Vorgabebefehl ON ERROR GOTO kennt, kann 
er bei einem auftretenden Fehler so zu reagieren lernen, wie wir 
das wollen (er kann sogar selbst die Fehler teilweise korrigie¬ 
ren; bestes Beispiel dazu: Der CPC lädt Daten von Kassette; 
schließlich sind alle vorhandenen Daten eingelesen; normaler¬ 
weise wird nun bei weiteren Leseversuchen die Fehlermeldung 
ausgegeben: 'EOF met'('EOF' = End of file); viel einfacher ist 
es da doch, in einer Errorbehandlungsroutine nach Auftreten 
dieses Fehlers ('ON ERROR GOTO') den noch offenen Datenfile zu 
schließen und im Programm dort fortzufahren, wo dies im Augen¬ 
blick sinnvoll erscheint. 

Zwar merzt unser Errormeldungsprogramm keine vorhandenen Errors 
aus (das kann pauschal so gehandhabt leicht zu unvorhersehbaren 
Folgen führen), dafür hilft es aber bei der Suche nach dem 
Fehler um so effektiver. Am besten Sie probieren es einmal aus! 
Geben Sie in Zeile 20 nur ’NEXT n' ein. Starten wir das Pro¬ 
gramm, so wird gleich der Fehler (Error 1 = ’Unexpected NEXT') 
angezeigt und eine Lösungsstrategie zur Programmverbesserung 
angeboten. 
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Wie verfahren Sie mit Ihren bereits bestehenden Programmen? 
Zeilen so umnummerieren (Befehl "RENUM"), daß sich keine Zeile 
mit dem Errorbehandlungsprogramm überschneidet (die Zeilennum¬ 
mern müssen größer als 10 und kleiner als 10000 sein). Nun 
gebrauchen Sie den Befehl 'MERGE' (siehe Handbuch), um die 
beiden Programme miteinander zu verbinden; anschließend mit 
'RUN 1 starten und versuchen, die Fehlermeldungen mit den vorge¬ 
gebenen Korrekturageboten positiv anzuwenden. 

Neben dem BASIC-Befehl ’0N ERROR GOTO* hilft uns der CPC am 
besten weiter durch die Abfrage der Error-Zeilenvariable "ERL" 
und die Fehlermeldevariable "ERR". Fehler selbst erzeugen kön¬ 
nen wir schließlich mit dem Befehl "ERROR 1 . 


Feh1 er in Zeile £0 ! 

In Zeile 20 steht.>der Befehl 

, ohne dass vorher im Programm 
ein entsprechender * FOR'-Befehl erfolgt 
ist. Es Roennte auch sein, dass Sie Fuer 
eine entsprechende FOR -Schleife nur 
die falsche Variable mit 'NEXT' ange- 
sprochen haben, 
geady 
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10 REM Errormeldüngen 

11 REM CPC464 Basic Programme 

12 REM Copyright 1984 DATA BECKER & 

Rainer Lueers 

13 INK 0,1:INK 1,24:INK 3,1,24 

14 ON ERROR GOTO 10000 

20 REM Bitte Programm zwischen Zeile 
20 und Zeile 9999 eintippen 
oder einMERGEN 

9999 STOP 

10000 REM Beginn der aus-fuehrlichen 

Errorbehandlungsroutine 
10010 MODE 1:PEN 1 

10020 PRINT"Feh1 er in ZeiIe n ERL"!" 

10030 GOSUB 11420 

10040 REM Unexpected NEXT 

10050 IF ERR=1 THEN PRINT "In Zeile ,, ERL n 
steht der Befehl "lPEN 3 ELSE GOTO 10100 
10060 PRINT " ' NEXT* 11 ; : PEN 1: PRINT ", ohn 
e dass vorher im Programm" 

10070 PRINT "ein entsprechender 'FOR’-Be 
-fehl erfolgt ist- Es koennte auch sein, 
dass Sie fuereine entsprechende ? FOR'—Sc 
hleife nur die falsche Variable mit 7 N 
EXT’ ange- sprochen haben." 

10080 END 

10090 REM Syntax Error 

10100 IF ERR=2 THEN PRINT "Irgendetwas i 
st":PRINT "im Satzbau von Zeile"ERL ELSE 
GOTO 10150 

10110 PRINT "falsch bzw. irgendein Wort 
ist falsch geschrieben- Man spricht vo 
n einem ":PEN 3:PRINT "SYNTAX ERROR" 

;:PEN 1:PRINT "-" 

10120 PRINT 
10130 END 

10140 REM Unexpected RETURN 
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10150 IF ERR=3 THEN PRINT M In Zeile"ERL" 
steht der Befehl":PEN 3:PRINT "RETURN";: 
PEN 1:PRINT ", ohne dass vorher im" ELSE 
GOTO 10190 

10160 PRINT "Programm ein entsprechendes 
Unterpro- gramm mit 'GOSUB 7 aufgerufe 
n wurde-" 

10170 END 

10180 REM DATA exhausted 

10190 IF ERR=4 THEN PRINT "Es sollen nac 
h Ihren Wuenschen noch weitere ";:PE 

N 3:PRINT"DATAS n ;:PEN liPRINT " eingeles 
en werden-" ELSE GOTO 10230 


10200 PRINT 
e Menge der 
eicht wurde 
der DATAS 
in entspre— 
wie 


"Dafuer reicht die angegeben 
DATAS aber nicht aus- Viell 
auch zum nochmaligen Lesen 
mit dem Befehl 'READ' nur e 
ehender DATAruecksetzbefehl 
'RESTORE' vergessen -" 


10210 END 


10220 REM Improper argument 
10230 IF ERR=5 THEN PRINT "Ein Parameter 
oder ein ";:PEN 3:PRINT "ArgumentPEN 
1 SPRINT " wur —" ELSE GOTO 10270 
10240 PRINT "de falsch angegeben. Sie ko 
ennen z.B. nicht beliebige Zahlwe 

rte fuer den 'SOUND' oder den 'ENV'-Befe 
hl verwenden - Bitte schauen Sie im Handbu 
ch nach!" 


10250 END 

10260 REM Overf1ow 

10270 IF ERR=6 THEN PRINT "Der Schneider 
-Computer registriert einen 11 ; : PEN 

3:PRINT "OVERFLOW";:PEN 1sPRINT"; das be 
deutet einen" ELSE GOTO 10320 
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10280 PRINT "Lieber 1 auf, da in Zeile"ERL" 
versucht":PRINT "wurde, eine Zahl darzus 
teilen, die ueber die Darstel1ungsm 

oeglichkeit von Zahlen hinausging (groe 
55 er als 1-7 E—38)> Vielleie 

ht haben Sie auchdie Umwandlung von Zahl 
en in andere" 

10290 PRINT "Zahldarstellungen bei unerl 
aubter Groesse angestreb.t. " 

10300 END 

10310 REM Memory full 

10320 IF ERR=7 THEN PRINT "Speicher oder 
englisch ";:PEN 3:PRINT "MEMORY"PEN 1 
SPRINT " voll." ELSE GOTO 10380 
10330 PRINT "Das ist ein starkes Stueck, 
wenn Sie denSpeicher mit einem reinen B 
ASIC-Programmvol1geschrieben haben- Am b 
esten, Sie schauen das Programm noch e 
inmal durch, wo vielleicht Kuerzungsmoeg 
lichkeiten bestehen z.B. sind ? REM*-Ze 
ilen nur zur" 

10340 PRINT "Dokumentation des Programms 
noetig- Uebrigens ... Sie kommen sc 

hnell zu ei- nem vollen Speicher, wenn S 
ie die Dirnen—sionen von Variablen zu hoc 
h auslegen oder nacheinander in zu vie 
le Unterpro— gramme oder FOR. - - NEXT* —Sc 
hleifen ver-" 

10350 PRINT "zweigen.“ 

10360 END 

10370 REM Line does not exist 
10380 IF ERR=8 THEN PRINT "Sie wollen ei 
ne Zeile im Programm an— springen, die 
es ueberhaupt nicht gibt oder in engli 
sch: ";:PEN 3:PRINT "LINE DOES NOT EXIST 
";:PEN 1:PRINT “." ELSE GOTO 10420 
10390 PRINT "Vielleicht haben Sie da ein 
en Schritt zu weit gedacht oder gar vo 
rhin das Pro—gramm umnummeriert und die 
gleiche Feh— lermeldung (s.o.) ignoriert 
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10400 END 

10410 REM Subscript out of ränge 
10420 IF ERR=9 THEN PRINT "Das ";:PEN 3: 
PRINT "SUBSCRIPT";:PEN 1 SPRINT M (die Gr 
oesse der gewaehl—" ELSE GOTO 10470 
10430 PRINT M ten Dimension einer Variabl 
en> ist in Zeile";ERL;"zu gross. Entwe 
der haben Sie":PRINT "vorhin vergessen, 
die Variablen mit :, DIM 5 ' zu dimension 

ieren oder aber Sie haben gedacht, der 
Schneider—Computer" 

10440 PRINT "koenne mehr als 11 Variable 
n, die einer Variablen zugeordnet sind o 
hne Dirnen- sionierung verkraften." 
10450 END 

10460 REM Array already dimensioned 
10470 IF ERR=10 THEN PRINT "Die Dimensio 
nierung mit ";:PEN 3:PRINT "DIM";:PEN ls 
PRINT " wurde" ELSE GOTO 10510 
104H0 PRIN1 "schon einmal vorher im Prog 
ramm fest— gelegt. Es ist nicht moegli 
ch, in Zei— 1e";ERL;"noch einmal, ohne 
vorher"SPRINT " 51 CLEAR’ gesagt zu haben, 
neu zu dimen— sionieren." 

10490 END 

10500 REM Division by zero 
10510 IF ERR=11 THEN PEN 3:PRINT "DIVISI 
ON";:PEN 1 SPRINT " durch 0 ist nicht erl 
aubtPRINT "Hier ist es dennoch gesche 
hen! Bitte im Programm nachsehen, wie es 
dazu kommen konnte (auch Variablen in 
der Fehlerzei—le ueberpruefen)-" ELSE GO 
TO 10540 
10520 END 

10530 REM Invalid direct command 
10540 IF ERR=12 THEN PRINT "Als direkte 
Befehlseingabe (";:PEN 3:PRINT "direct": 
PRINT "command"PEN IsPRINT ") ist dies 
so nicht statthaft" ELSE GOTO 105S0 
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10550 PRINT "(z.B. * A$=INKEY$* zur Tasta 

turabfrage). Bitte diesen Befehl in ein 
Programm ein—binden und dieses mit *RUN* 
starten-" 

10560 END 

10570 REM Type mismatch 

105B0 IF ERR=13 THEN PRINT "Sie haben de 
n falschen Variablentyp":PRINT "(";:PEN 
3:PRINT "TYPE MISMATCH"PEN 1:PRINT ") 
ausgewaehltPRINT "Entweder fragt man 
mit einer Variablen nur nach einer Zah1 
(Variable A 9 B 9 C...)" ELSE GOTO 10630 
10590 PRINT "und liest danach auch nur e 
ine Zahl ein (durch 7 READ* oder * INPUT*) 

, oder man erwartet ein alphanumerisch 
es Zeichen bzw. eine Zahl und liest di 
eses mit einer Stringvariablen (A4 S B 

..) ein-"; 

10600 PRINT "Will man eine Zahl als Stri 
ng einlesen, so kann der String durch An 
Wendung des Befehls * VAL(- - -)* wieder i 
n eine Zahl- variable zurueckverwandelt 
werden-" 

10610 END 

10620 REM String space full 
10630 IF ERR=14 THEN PEN 3sPRINT "STRING 
S"; :PEN IsPRINT " finden keinen freien P 
latz mehr":PRINT "im Speicher. Es gibt z 
wei Moeglichkei- ten zur weiteren Strin 
geingabe:" ELSE GOTO 10670 
10640 PRINTsPRINT "1) Das BASIC-Programm 
verkuerzen 2> Die vorhandenen St 

rings auf Kassette"PRINT " abspeiche 
rn und mit * CLEAR * den Stringspe 

ieher 1oeschen. Danach kann die Neuei 
ngabe der Variablen erfolgen- 

ri 

10650 END 

10660 REM String too long 
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10670 IF ERR=15 THEN PRINT "Die in der Z 
eile“;ERL;"verwendete":PRINT"Zeichenkett 
e <" ; :PEN 3:PRINT "STRING"PEN 1:PRINT 
") ist laenger als" ELSE GOTO 10710 
10680 PRINT "255 Zeichen. Dies ist unbed 
ingt zu ver— meiden! Deshalb nicht belie 
big Strings erweitern (durch '+’> und a 
uch nicht zu oft die Stringmanipulations 
funktionen wie 'INSTR 7 usw. als Vergro 
esserungs- faktor einsetzen." 

10690 END 

10700 REM String expression too complex 
10710 IF ERR=16 THEN PRINT "Die Zeichenk 
ette in Zei1e";ERL:PRINT "ist ";:PEN 3:P 
RINT "zu komplex"PEN 1:PRINT ". Bitte 
nicht zu sehr" ELSE GOTO 10750 
10720 PRINT "den String kuenstlich verko 
mpl i zi eren rlurrh Ei ngaben von Stringma 
nipulations- Funktionen wie 'LEFT$', 'RI 
GHT$ 7 , 'MID$ 7 oder 7 INSTR 7 - 

10730 END 

10740 REM Cannot CONTinue 

10750 IF ERR=17 THEN PEN 3:PRINT "CONT"; 

:PEN 1:PRINT "inue ist zwar eine tolle F 
unktion" ELSE GOTO 10800 

10760 PRINT "die eine Fortsetzung nach 7 
END', 7 STOP' oder Programmunterbrechung 

durch Druek- ken der <ESO-Taste -fast im 
mer ermoeg— 1icht, aber bitte VORSICHT! 

II 

10770 PRINT "In diesem Fall ist seit der 
Programmun— terbrechung zu viel gescheh 
en, als dass der Computer sich noch dara 
n erinnert, in welcher Zeile er mit dem 
Programmab- lauf fortfahren soll." 

10780 END 

10790 REM Unknown user function 
10800 IF ERR=18 THEN PEN 3:PRINT "FN";:P 
EN 1:PRINT " ist zwar ein toller Befehl, 
um mathe—"; ELSE GOTO 10860 
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10810 PRINT "matisehe Funktionen, die du 
rch 'DEF FN 7 an anderer Stelle im Progra 
mm definiert wurden, mit beliebigen Vari 
ablen auszu- rechnen- Aber in diesem Fal 
1 wurde in Zeile";ERL;"mit FN eine Fun 
ktion" 

10820 PRINT "aufgerufen, die vorher uebe 
rhaupt nicht so definiert worden i 

st-"SPRINT:PRINT "Ein Hinweis der Uebers 
ichtlichkeit halber: Definitionen s 

ollten immer zu Beginn des Programms i 
m sogenannten De—" 

10830 PRINT "klarationstei1 festgelegt w 
erden-" 

10840 END 

10850 REM RESUME missing 

10860 IF ERR=19 THEN PEN 3:PRINT "RESUME 
";:PEN 1:PRINT " sollte bei einer Interr 
uptsteu—" ELSE GOTO 10910 

10870 PRINT "erung mit 7 ON ERROR GOTO 7 v 
erwendet wer—den, um in den aktuellen Pr 
ogrammablauf an der richtigen Stelle wie 
der ein— schwenken zu koennen- Sie k 

oennen ein- fach RESUME im Programm ein 
geben, so er-folgt die Programmweiterfue 
hrung an der" 

10880 PRINT "Stelle, wo der Fehler aufge 
treten ist- Sie koennen auch RESUME Zei 
lennummer eingeben, um an einer gewue 
nschten Pro— grammzeile fortzufahren-" 
10890 END 

10900 REM Unexpected RESUME 
10910 IF ERR=20 THEN PRINT "Der Befehl " 
;:PEN 3:PRINT "RESUME"PEN 1:PRINT " is 
t in Zeile" ELSE GOTO 10960 
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10920 PRINT ERL;"aufgetreten, ohne dass 
eine Feh-":PRINT "lerroutine (ausgeloest 
durch den Befehl ’ÜN ERROR GOTO’) im Pr 
ogramm aufgerufen wurde. Die Loesung des 
anscheinend ueberf1uessigen RESUME 

koennte daraus resultieren, dass das 
eigentliche" 

10930 PRINT "Programm nicht mit ’END’ ab 
geschlossen wurde und somit nun in die 
Fehlerbe— handlungsroutine reinrutsch 

t. " 

10940 END 

10950 REM Direct command 

10960 IF ERR=21 THEN PRINT "Waehrend der 
Kassettenladung eines Pro- gramms wurde 
ein Befehl gefunden <";sPEN 3:PRINT "DI 
-"SPRINT "RECT COMMAND"PEN 1sPRINT " ) , 
der ohne Zeilennummer im" ELSE GOTO 110 
00 

10970 PRINT "Programm auftaucht- Das dar 
f nicht so sein!" 

10980 END 

10990 REM Operand missing 

11000 IF ERR=22 THEN PRINT "Manche BASIC 
—Befehle ergeben ohne Ver — Wendung eine 
r Mindestanzahl von ";=PEN 3:PRINT "OPE- 
"sPRINT "RANDEN";:PEN 1sPRINT " keinen S 
inn. Z.B. der Befehl" ELSE GOTO 11030 
11010 PRINT SOUND’ muss mindestens aus 
der Angabe des gewaehlten Tonkanals un 
d der Ton— frequenz bestehen.":PRINT " 
Z.B. ’SOUND 1,100* und nicht ’SOUND’." 
11020 REM Line too long 

11030 IF ERR=23 THEN PRINT "Die Programm 
zeile ist zu lang (in eng— 1isch:";:PEN 
3:PRINT "too long"PEN 1sPRINT ">; sie 
darf aus hoech—" ELSE GOTO 11070 
11040 PRINT "stens bis zu 255 Zeichen be 
stehen."sPRINTsPRINT "Bitte korrigieren 
z.B. durch eine Auf- teilung dieser Zei 
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le in mehrere kleine Zeilen.” 

11050 END 

11060 REM EOF met 

11070 IF ERR=24 THEN PEN 3:PRINT "EOF";: 
PEN 1:PRINT " bedeutet END OF FILE." ELS 
E GOTO 11150 

11080 PRINT "Es wurde irrtuemlicherweise 
in Zei- 1e”;ERL;"versucht 9 eine Dat 

ei laenger" 

11090 PRINT "in den Computer einzuladen, 
als sie wahrlich lang istPRINT:P 

RINT "Um diesen Fehler zu umgehen, gibt 
es folgende Ratschiaege:" 

11100 PRINT "Vor dem Einlesen von Daten 
von der Kas- sette in einer Zeile nachfr 
agen: *IF EOF THEN CLOSE IN:GOTO 

11110 PRINT "d.h. wenn EOF erreicht wird 
, wird die Datei ordnungsgemaess gesch 
lossen und der Programmablauf an ander 
er Stelle fortgesetzt. Andere Moeglic 
hkeit: Die Anzahl der speichernden Fil 
es zuerst in der Datei ablegen. Beim Lad 
en zuerst" 

11120 PRINT "diese Zahl einiesen und die 
selbige als Zaehler fuer eine 'FOR...NE 
XT—Schleife verwenden." 

11130 END 

11140 REM File type error 
11150 IF ERR=25 THEN PRINT "Die Art des 
gewaehlten Files (";:PEN 3:PRINT "FILE": 
PRINT "TYPE"PEN 1:PRINT ") ist nicht k 
orrekt." ELSE GOTO 11200 

11160 PRINT "Das Einlesen von Dateien mi 
t dem Befehl *OPEN IN* ist nur bei ASCII 
—Dateien moeglich. ’LOAD* bzw. *RUN* 

bzw. *MERGE*hingegen laden nur Programm 
e, die mit *SAVE* direkt abgespeichert 
wurden (hierwurde naemlich nicht Buchst 
abe fuer" 
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1117*3 PRINT "Buchstabe sondern BASICwort 
<=Token) fuer BASICwort verschluesse 

11 und so- mlt auch ver kuerzt abgespei 
chert." 

11180 END 

11190 REM NEXT missing 

11200 IF ERR=26 THEN PRINT "Eine 'FOR... 
";:PEN 3:PRINT "NEXT"PEN 1 SPRINT "'-Sc 
hl eife besteht" ELSE GGTÜ 11250 
11210 PRINT "aus 'FÜR' und NEXT- Bei der 
Programm- schlei -fe in Zeile" ; ERL; "f eh 
lt" 

11220 PRINT "offensichtlich ein NEXT! Bi 
tte nach— schauen und einsetzen-" 
11230 END 

11240 REM File already open 
11250 IF ERR=27 THEN PRINT "Eine Datei, 
die mit dem Befehl ";:PEN 3:PRINT "OPEN 
";:PEN 1 ELSE GOTO 11300 

11260 PRINT "bereits geoeffnet war, darf 
in Zeile"sPRINT ERL;"nicht noch einmal 
mit OPEN IN" 

11270 PRINT "oder OPEN OUT geoeffnet wer 
den. Das ist zudem sinnlos- Vielleicht 1 
iegt der of— fensichtliche Fehler darin 
begruendet, dass die Datei in einem and 
eren Pro— grammabschnitt oder nach de 
m Neustart des Programms zwar geoeffne 

t" 

11280 PRINT "(OPEN IN, OPEN OUT), jedoch 
nicht wie— der geschlossen <'CLOSE IN' 
, 'CLOSE OUT') wurde-" 

11290 REM Unknown command 

11300 IF ERR=2B THEN PRINT "Ein Befehl i 
n Programmzeile";ERL ELSE GOTO 11330 
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11310 PRINT "ist in dieser Anwendung dem 
Computer nicht bekannt <";:PEN 3:PRI 
NT "UNKNOWN COMMAND";:PEN 1:PRINT ")-" 
11320 REM WEND missing 

11330 IF ERR=29 THEN FRINT "WHILE.- -";:P 
EN 3s PRINT "WEND"PEN 1sPRINT M bietet 
zwar gute Moeglich—" ELSE GOTO 11380 
11340 PRINT "keiten zur Erstellung von s 
trukturier— ten BASIC-Programmen- Sie h 
aben jedoch bis zu Zei1e";ERL;"vergesse 
n, eine" 

11350 PRINT "WHILE. .-WEND-Schlei-fe im Pr 
ogramm mit":PEN 3:PRINT "WEND"PEN 1:PR 
INT " abzuschliessen -" 

11360 END 

11370 REM Unexpected WEND 

11380 IF ERR=30 THEN PRINT "WHILE- ";:F 

EN 3:PRINT "WFND";:PEN 1sPRINT " bietet 
zwar gute Moeglich—" ELSE END 
11390 PRINT "keiten zur Erstellung von s 
trukturier— ten BASIC-Programmen- Sie h 
aben jedoch bis zu Zeile";ERL;"vergesse 
n, eine" 

11400 FRINT "WHILE---WEND-Schleite im Fr 
ogramm vorherueberhaupt mit ";:PEN 3sPRI 
NT "WHILE" ; s PEN 1: PRINT " zu eroe-f -fnen. " 
11410 END 
11420 PEN 3 

11430 REM Die Errormeldüngen mit ihrer 
englischen Kurzerk1aerung 
11440 IF ERR=1 THEN PRINT "Unexpected NE 
XT"; 

11450 IF ERR=2 THEN PRINT "Syntax Error" 
5 

11460 IF ERR=3 THEN PRINT "Unexpected RE 
TURN"; 

11470 IF ERR=4 THEN PRINT "DATA exhauste 
d"; 
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11480 IF ERR=5 THEN PRINT "Improper Argu 
ment" ; 

11490 IF ERR=6 THEN PRINT "Overflow"; 
11500 IF ERR=7 THEN PRINT "Memory full”; 
11510 IF ERR=8 THEN FRINT "Line does not 
exist 

11520 IF ERR=9 THEN PRINT "Subscript out 
of ränge"; 


11530 

IF 

ERR=10 

THEN 

y dimensioned"; 


11540 

IF 

ERR=11 

THEN 

zero"; 

11550 

IF 

ERR=12 

THEN 

ct command" 


11560 

IF 

ERR=13 

THEN 

h"; 

11570 

IF 

ERR=14 

THEN 

full" 

5 



11580 

IF 

ERR=15 

THEN 

ong"; 

11590 

IF 

ERR=16 

THEN 

sei on 

too comp1ex"; 

11600 

IF 

ERR=17 

THEN 

nue" ; 




11610 

IF 

ERR=18 

THEN 

function"; 


11620 

IF 

ERR=19 

THEN 

ng"; 




11630 

IF 

ERR=20 

THEN 

ESUME" 




11640 

IF 

ERR=21 

THEN 

nd"; 




11650 

IF 

ERR=22 

THEN 

ing"; 

11660 

g"; 

IF 

ERR=23 

THEN 

11670 

IF 

ERR=24 

THEN 

1 1680 

IF 

ERR=25 

THEN 

ror “ ; 





PRINT "Array alread 
PRINT "Divieion by 
PRINT "Invalid dire 
PRINT "Type mismatc 
PRINT "String space 
PRINT "String too 1 
PRINT "String expre 
PRINT "Cannot CONTi 

PRINT "Unknown user 

PRINT "RESUME missi 

PRINT "Unexpected R 

PRINT "Direct comma 

PRINT "Operand miss 

PRINT "Line too Ion 

PRINT "EOF met"; 
PRINT "File type er 
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11690 IF ERR=26 THEN 


■i. 
* 


11700 

IF 

ERR=27 

THEN 

open" 

5 



11710 

IF 

ERR=28 

THEN 

and"; 




11720 

11 ■ 

IF 

ERR=29 

THEN 

s 

11730 

IF 

ERR=30 

THEN 

END"; 




11740 

PEN 1 


11750 

PRINT:PRINT 

11760 

RETURN 



PRINT "NEXT missing 
PRINT "File already 
PRINT "Unknown comm 
PRINT "WEND missing 
PRINT "Unexpected W 
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Variablenreferenzliste 


Im Programm 'Speicher 4 1 haben wir bereits kennengelernt, wie 
die jeweilige Zeilennummer und Zeilenlänge ira Speicher abgelegt 
wird (Speicherstellen 368 und 369 enthalten die Längenangabe der 
ersten Zeilennummer, Speicherstelle 370 und 371 teilt uns mit, 
wie die erste Zeilennummer heißt usw.). Mit Programm 'Speicher 
4' haben wir zudem eine einfache Möglichkeit an die Hand bekom¬ 
men, den Speicher nach einem bestimmten Wort mit bis zu sechs 
Buchstaben zu durchsuchen. Jedoch so mancher unter Ihnen wird 
sich fragen: 'was kann ich damit denn sinnvoll anfangen?'. Nun 
ja, im Endprodukt haben wir dadurch einerseits den Speicher 
etwas näher kennengelernt, andererseits kann uns Programm 'Spei¬ 
cher 4' aber außerdem behilflich dabei sein, wenn wir gerade 
nach solch einer alphanumerischen Zeichenfolge suchen. 

Im Programm 'Variablenreferenzliste' gehen wir mit ähnlichem 
Fundament an den Start, aber wieder folgt eine entscheidende 
Erweiterung: diesmal wird der Speicher nicht nur nach bestimmten 
Zeichenfolgen durchsucht, nein, es wird zudem eine Ordnung her¬ 
gestellt. 

Die gesuchten Zeichenfolgen setzen sich aus einer ersten Zahl 
(2, 3, 4 oder 13) und einer zweiten Zahl (0) zusammen. Diese 
Folge deutet darauf hin, daß hier eine Variable mit entsprechen¬ 
dem Variablennamen im Programm abgelegt wurde. 

Da der CPC die Möglichkeit bietet, Variablennamen mit bis zu 
vierzig Zeichen zu unterscheiden, müssen wir selbstverständlich 
den ganzen Variablennamen im Speicher aufsuchen. Dabei hilft uns 
(und natürlich insbesondere sich selber) der CPC ein starkes 
Stück weiter: während die ersten Zeichen eines Variablennamens 
immer normal abgespeichert sind, wird beim letzten Zeichen des 
Variablennamens jeweils das entsprechende ASCII-Zeichen + 128 im 
Speicher abgelegt. Besteht der Variablenname lediglich aus einem 
Zeichen (z.B. 'a', 'b' oder 'c'), so gilt selbstverständlich das 
erste Variablenzeichen gleichzeitig als das letzte, und dies 
wird dann auch entsprechend abgespeichert (ASCII-Zeichen + 128). 
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Da es verschiedene Variablentypen gibt (String, ganze Zahl 
...), wird dies bei der Abspeicherung mitberücksichtigt und bei 
unserer Auflistung auch angezeigt. 

Was kann unser 'Variablenreferenzlistenprogramm' nun alles von 
dem und noch darüberhinaus? 

1) Es werden Variablen im Programmspeicher gesucht (Start des 
Programms 1 Variablenreferenzliste' mit 'RUN 10000 1 ) - bis Zeile 
9999 kann Ihr Programm lang sein. 

2) Steht der gefundene Variablenname alphabetisch an erster 
Stelle (von allen in Ihrem Program vorkommenden Variablen), so 
wird im Speicher = Programm weitergesucht, in welchen Pro¬ 
grammzeilen dieser gleiche Name zudem auftaucht. Auch dies wird 
am Bildschirm angezeigt. So wird mit der Zeit eine alphabetische 
Variablenliste auf dem Bildschirm erzeugt, die uns bei unserem 
'Basic-Programm-Debugging' (Fehlersuche) erheblich weiterhelfen 
kann. 

Probieren Sie das Programm doch gleich aus, indem Sie in Zeile 
10 bis 50 folgende Variablenzuweisungen eintragen: 

'10 a$="CPC464" 

20 b$="Computer" 

30 CPC=464 
40 DATABECKER!=464 
50 BASICPR0GRAMME%=464 1 

Nun starten Sie das 'Variablenreferenzlistenprogramm' mit 'RUN 
10000' und nach kurzer Zeit werden nicht nur die verwendeten 
Variablen, sondern auch die ensprechenden Zeilennummern am 
Bildschirm aufgeführt. 

Ist das Programm durchforstet, so schreibt der CPC den ver¬ 
brauchten Speicherplatz auf den Bildschirm (Angabe für Programm 
= ohne Referenzlistenprogramm). 


- 109 - 



Noch ein Hinweis: 


Je länger Ihr Programm ist, desto ausführlicher und damit 
aufwendiger muß der GPC seine Speicherdurchsuchung durchführen. 
Also: Bitte ein bißchen Geduld. 

Die Variablennamen werden erst einmal alphabetisch sortiert (das 
heißt im Coraputerhirn nicht nur alphabetisch sondern auch 'vom 
großen Buchstaben zum kleinen'!), dann ihrer Zeilennummer - bzw. 
auch mehreren Zeilennummern - zugeordnet und schließlich im 
Kähmen einer Referenzliste auf den Bildschirm ausgeworfen. 

Der angezeigte verbrauchte 'Programmspeicherplatz' bezieht sich 
nur auf das Programm in den Zeilen bis 10000, denn die 
'Referenzliste' gehört ja schließlich nicht zum eigentlichen 
Hauptprogram dazu; sie fungiert lediglich als Utility! 


BASICPRÖGRAMHE/. 50 
CPC 30 

DATABECKER ' 40 

A * IO 
bf 20 

Progrannspeicherplatz ! 101 Byte- 


list 10-50 
10 a 1 =" CPC4 64" 

20 bl="Conputer" 

30 CPC =464 
40 DATABECKER '=464 
50 BAS ICPROGRAMMEN =464 
Ready 
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10000 REM Variablenreferenz liste 
10010 REM CPC464 Basic Programme 
10020 REM Copyright 1984 DATA BECKER Sc 

Rainer Lueers 

10030 CLEARsDIM a*(1000) 

10040 REM Kleinste und groesste 

moegliche Variable festlegen 
10050 merker*=STRING*(40, M z H >=merkerlS=S 
TRING4(40,"!" > 

10060 MODE 1 

10070 z=368:a$="###":b*="##### M 
10080 REM Errechnen von Zeilenlaenge 
und Zei1ennummer 

10090 a=FEEK(z)+256*PEEK<z+l>sb=PEEK(z+2 
)+256*PEEK(z+3> 

10100 REM Berechnung konzentriert sich 
nur auf das Programm oberhalb 
der Variahlenreferenz1isten— 
Berechnung 

10110 IF b<>10000 THEN GOTO 10150 
10120 GOSÜB 10360 

10130 PRINT:PRINT "Programmspeicherplatz 
: M ;USING b*; z-368; : PRINT 11 Bytes" :PRIN 

T: END 

10140 REM Beginn der Suche nach 
Variablen im Speicher 
10150 FOR zl=z+4 TO z+a: IF (F'EEK <z1)=13 
OR (PEEK(z 1 >>1 AND PEEK(zl)<5>) AND PEEK 
(z1+2)=0 THEN GOSUB 10200 
10160 IF z+4<>z+a THEN NEXT zl 
10170 z=z+a 
10180 GOTO 10090 

10190 REM Welche Art von Variable? 

13 = normale Zahl 

3 = String 

2 = ganze Zahl mit ’ 7 

4 = normale Zahl mit 7 !’ 

10200 IF PEEK(zl)=13 THEN zz=13 
10210 IF PEEK(z1)=3 THEN zz=3 
10220 IF PEEK(z1> =2 THEN zz=2 
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10230 IF PEEK(il) =4 THEN 22=4 
10240 REM Laenge des Variablennamens 
untersuchen 

10250 IF PEEK(zl+3>>128 THEN zz$=zz$+CHR 
(PEEK<21+3)-128)) ELSE zz$-z 2 $+CHR$<PE 
EK(z1+3)):z1=21+1:GOTO 10250 
10260 REM Welche Art von Variable? 

13 = normale Zahl 

3 = String 

2 = ganze Zahl mit 7 7.’ 

4 = normale Zahl mit ? * 

10270 IF zz=13 THEN zz$=zzt 

10280 IF zz=3 THEN zz*=zz*+ ,, V 
10290 IF zz=2 THEN zz$=zz$+ ,, 7. ,, 

10300 IF zz=4 THEN zz$=zz$+" ! 11 
10310 REM Erzeugen einer alphabetischen 
Ordnung, bevor die Variablen¬ 
namen mit Zeilennummer auf — 
gelistet werden 

10320 IF zzSKmerker* AND zz$>merkerlt TH 
EN merker$=zz$ 

10330 IF f1ag=l AND zzt=a$(zaehler) THEN 
PRINT b; 

10340 zz$ =, ‘ " : RETURN 

10350 REM Merken des Variablennamens 
und der Zeilennummer, wo er 
auftritt 

10360 IF flag=l THEN f1ag=0:PRINT:GOTO 1 
0070 ELSE f1ag=l:IF merker*=STRING*(40, M 
z") THEN RETURN ELSE PRINT merker*;:zaeh 
1 er=z aehler + 1:a$(zaehler)=merker$:merker 
lt=merker$:merkeri=STRING$(40,"z M ) 

10370 GOTO 10070 
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Kalender 


Wer sich an den Umgang mit Computern gewöhnt hat, wird dem 
Programm 'Kalender* in dieser oder einer ähnlichen Form häufiger 
begegnen. Sei es nun das Programm Kalender allein wie in 
diesem Fall, oder aber als Einbimdung in ein größeres Programm 
(z.B. 1 Terminverwaltung' - auch als Listing in diesem Buch 
enthalten). 

In jedem Fall geht es um die Aufaddition von Jahren, Monaten und 
Tagen, wobei als Endresultat der gewünschte Wochentag errechnet 
wird. 

Das vorliegende Programm teilt sich in drei Bereiche, die aus 
der INPUT-Abfrage zum gewnschten Jahr, Monat und Kalendertag 
resultieren. 

Die Jahrescingabe darf zwischen 1901 und dem Jahr 2000 liegen, 
wobei Schaltjahre automatisch registriert werden (Zeile 140). 

Bei der Monatsrechnung wird der eingegebenen Monatszahl entspre¬ 
chend der Name zugeordnet und die Höchsttageszahl festgestellt. 
Liegt ein Merker von der Jahreseingabe in der Form z=l = 
Schaltjahr und m=2 «= Februar vor, so wird der 29.Februar = 
Schaltjahr mit hinzugezählt (Zeile 590). 


Schließlich erfolgt die Verzweigung zu den einzelnen Wochentagen 
(Zeile 750) und deren entsprechende Anzeige ('Der ... im Jahr 
ist/war ein ...'), und falls erwünscht, so kann wieder von 
vorne begonnen werden, sprich ein weiterer Wochentag ausge¬ 
rechnet werden. 
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Jahr ? 1?84 

Monat ? 0 A1 
Tag ? 18 


Der 18 .November, im Jahr 1984 
ist/war ein Sonntag 


Mol len Sie noch einen 
Mochen tag ausr echnen ( /N > ? ■ 




10 REM Kalender 

20 REM CPC464 Basic Programme 
30 REM Copyright 1984 DATA BECKER & 

Rainer Lueers 

40 INK 0,1:INK 1,24:INK 2,1,24:etfekt=2: 

normal=1 

50 MODE 1 

60 PRINT 

70 PRINT 

80 PRINT 

90 PRINT " Bestimmung des Wochentag 

s von 1901 bis 2000" 

100 PRINT:PRINT 

110 REM Eingabe der Jahreszahl und 

Berechnung (u.a. Schaltjahr) 

120 INPUT "Jahr " ; j 

130 IF j<1901 OR j >2000 THEN SOSUB 990:G 
□TO 50 

140 IF INT(j/4)=j/4 THEN z=l ELSE z=0 
150 j1=2 

160 IF j=1901 THEN GOTO 230 
170 FÜR n=1902 TO j 
180 jl=jl+l 

190 IF INT((n—1)/4)=(n-1)/4 THEN jl=j1+1 
200 IF j1>6 THEN jl=jl-7 
210 NEXT n 

220 REM Eingabe des Monats und 

Berechnung (Name und Anzahl der 
Tage) 

230 INPUT "Monat ";m 

240 IF m<1 OR m>12 THEN GOSUB 990:GOTO 5 
0 

250 ON m GOSUB 270,290,310,330,350,370,3 
90,410,430,450,470,490 
260 GOTO 510 
270 m$="Januar" 

280 RETURN 

290 m$="Februar" 

300 RETURN 
310 m$= N Maerz" 


- 115 - 



320 RETURN 
330 m*="April" 

340 RETURN 
350 m$= M Mai" 

360 RETURN 
370 m$= M Juni" 

3B0 RETURN 
390 m*= ,I Juli" 

400 RETURN 
410 ffl$="August" 

420 RETURN 

430 m$=“September" 

440 RETURN 
450 m$="Oktober“ 

460 RETURN 

470 m$="November" 

4B0 RETURN 

490 mt="Dezen»ber" 

500 RETURN 

510 RESTORE:FÜR n=l TO m 
520 READ ml 
530 NEXT n 

540 DATA 31,28,31,30,31,30 
550 DATA 31,31,30,31,30,31 
560 IF z = l AND m=2 THEN ml=29 
570 REM Eingabe des Tages (Zahl) und 
Berechnung des Wochentags 
5B0 INPUT "Tag ";t 

590 IF t=29 AND m=2 AND zOl THEN GOSUB 
990:GOTO 50 

600 IF t<l OR t>ml THEN GOSUB 990:GOTO 5 
0 

610 t1=0 
620 RESTORE 

630 IF m=l THEN GOTO 690 

640 FOR n=2 TO m 

650 READ ml 

660 tl=t1+ml 

670 NEXT n 

630 IF z = 1 AND m>2 THEN tl=tl + l 


- 116 - 



690 tl=tl+t+jl 
700 tl=tl-INT<tl/7)*7 
710 IF tl=0 THEN t1=7 
720 PRINT 

730 PRINT " Der";t;" .";m*;" - Im Jahr 

" 5 J 

740 PRINT " ist/war ein "; 

750 DN tl GOSUB 840,860,880,900,920,940, 
960 

760 PRINT 
770 PRINT 

780 INPUT M Wollen Sie noch einen 

Wochentag ausrechnen ( / 

N) ";-f* 

790 ft=UPPER$<f*> 

800 IF f<fc="N" THEN END 

810 RESTORE 

820 CLS 

830 GOTO 60 

840 PRINT "Sonntag" 

850 RETURN 

860 PRINT "Montag" 

370 RETURN 

880 PRINT "Dienstag" 

890 RETURN 

900 PRINT "Mittwoch" 

910 RETURN 

920 PRINT "Donner st ag" 

930 RETURN 

940 PRINT "Freitag" 

950 RETURN 

960 PRINT "Sonnabend" 

970 RETURN 
980 END 

990 PEN ef-fekt: PRINT: PRINT TAB<12) "Fals 
che Eingabe!" 

1000 PEN normal:GOSUB 1010:RETURN 

1010 PRINT:PRINT TAB<7> "<Bitte eine Tas 

te druecken >" 

1020 f$=INKEY$:IF T4»="" THEN GOTO 1020 
1030 RETURN 
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Kartei für Schallplatten 


Dieses Programm trägt seinen Namen nur dann zu recht, wenn Sie 
es Wort für Wort bzw. Befehl für Befehl so eintippen, wie Sie es 
in unserer. Programmsammlung vorfinden. 

Da es sich aber im Endprodukt um eine gar nicht so unluxuriöse 
kleine Datenbank handelt, ist es auch möglich, die entsprechen¬ 
den PRINT-Befehle z.B. 'PRINT "Platten eingeben"' in gewünschte 
Befehle mit nachfolgendem Text umzuwandeln z.B. 'PRINT "Adressen 
eingeben"'. 

So hätten wir nach ein paar Abänderungen im Programm eine Adreß- 
datei, die wir natürlich auch später so abspeichern können bzw. 
so abspeichern sollten. 

Jedoch zeigt das Programm 'Kartei für Schailplatten' einige 
Beschränkungen, die sich erst dann sinnvoll beseitigen ließen, 
wenn wir nicht mit Kassette sondern mit Diskette - und dort mit 
wahlfreiem Zugriff - arbeiten könnten. 

Die Grenzen des Programms zeigen sich nämlich deutlich bei dem 
zur freien Verfügung stehenden Speicherplatz. Wollen wir eine 
Karteikarte vollständig nutzen (drei mal 40 Zeichen), so werden 
dazu bereits 120 Speicherplätze benötigt. Bei 100 Karteikarten 
sind dies schon 12000 Speicherplätze ... und daraus resultiert, 
daß wir als Obergrenze vorerst die Zahl 300 für die Menge der 
unterschiedlichen Karteikarten vorgegben haben. 

Speichern Sie pro Karteikarte (120 Speicherplätze) nicht so 
viele Zeichen ab, können Sie selbstverständlich hierzu auch das 
Programm entsprechend ändern. In diesem Fall wird die Höchst¬ 
zahlgrenze einfach größer umschrieben z.B. Zeile 90: 

'IF z<l OR z>400 

Im einzelnen stellt Ihnen das Programm 'Kartei für Schallplat- 
ten' folgende Elemente zur Verfügung: 
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1. Sie können Karteikarten mit je drei Feldern anlegen (Platten¬ 
name, Sänger, Nummer) 

2. Sie können Dateien von Kassette laden 

3. Sie können Dateien auf Kassette abspeichern 

4. Sie können nach einer Platte im Speicher suchen lassen (nach 
Plattenname, Sänger oder Nummer); bei dieser Funktion wird Ihnen 
der Bildschirm mit gefundenen Daten aufgefüllt, bis er voll ist. 
Danach drücken Sie die (ENTER)-Taste und die Auflistung geht 
weiter. Mehrmaliges Auffinden kann möglich sein, wenn Sie meh¬ 
rere Langspielplatten eines Sängers, z.B. von David Bowie, be¬ 
sitzen. 

5. Sie können Ihre gesamte Plattenliste auf den Bildschirm - 
oder falls vorhanden auf einen angeschlossenen Drucker - ausge¬ 
ben lassen (bei der Bildschirmausgabe immer nur fünf Datensätze, 
dann (ENTER) drücken). 

6. Sie können eingegebene Daten ändern. Da bereits bei der 
Eigabe (1.) die Möglichkeit der nachträglichen Korrektur einge¬ 
räumt wird ('Richtig? 1 ), wird Funktion 6. wohl kaum angewendet 
werden müssen, um Eingabefehler nachträglich zu beseitigen. 
Vielmehr ist bei dieser Funktion daran gedacht, daß Sie das 
Dateiprogramm z.B. - wie oben bereits vorgeschlagen - zur Ver¬ 
waltung von Adressen verwenden. Wie oft kommt es da doch vor, 
daß jemand seinen Wohnsitz gewechselt hat ... Ganz einfach: 
Adreßdatei aufrufen, Punkt 6 = 'Änderungen vornehmen' aufrufen. 
Da sich sicherlich nicht alle Daten Ihres Bekannten von heute 
auf morgen verändert haben (zumindest sein Name nicht), können 
Sie diese Programmteile durch Drücken der (ENTER)-Taste einfach 
überspringen. Erst an der Stelle, wo wahrlich eine Änderung 
aufgetreten ist, können Sie eingeben. 

Ob Sie dieses Programm nun wie ursprünglich gedacht für die 
Speicherung Ihres Schallplattenarchivs verwenden oder ob Sie das 
Programm in eine Adreßverwaltung ummodeln, auf jeden Fall wün¬ 
schen wir Ihnen viel Freude dabei, der Unordung der Ordnung 
halber mit Ihrem CPC und unserem Programm zu Leibe zu rücken. 
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N 0 


rrarrf j^T»?farr»»nrt»TTr' 


Menue 


1.Platten eingeben 

2 . Platten laden 

3 . P latten speichern 

4. Nach Platten suchen 

5. Platten ausgeben 
6 .Platten aendern 


Ihre Wahl (1/2/3/4/5/6 ) ° ■ 



: m: m rm a m iTm 

um Menue zurueck durch <ENTEK> 
hne Worte in gäbe 

Wonach wollen Sie suchen 

1.Plattennane 
2.Saenger/in, Gruppe 
3.Nunner/Code 


Ihre Wahl 


< 1/2/3) 


^ !■ 









10 REM Kartei fuer Schal1platten 
20 REM CPC464 Basic Programme 
30 REM Copyright 1984 DATA BECKER St 

Rainer Lueers 

40 INK 0,1 SINK 1,24: INK 2,1,24:effekt=2: 
normal=1 
50 m=1:MODE 1 

REM Vorbedingungen treffen zum 
Anlegen von dimensionierten 
Variablen 

70 PAPER 1:PEN 0:PRINT "Kartei fuer Scha 
11planten":PAPER 0s PEN 1 
80 PRINT 

90 INPUT "Wie viele LPs sollen denn gesp 
eichert werden (hoechstens 300) "jz 
100 IF z<l OR z>300 THEN BOSUB 2300sGOTO 
50 

110 fr=FRE<0>sDIM p*(z),s*(z>,n*<z) 

120 PRINTsPRINT "Allein die Dimensionier 
ung von”;z; SPRINT "Platten braucht" ; -fr F 
RE(0>;"Speicherplaetze." 

130 PRINTsPRINTsPRINT "Bleiben pro-Platt 
e im Hoechstfal1"sPRINT:PRINT " 

INT(FRE(0)/z)sPRINTsPRINT "Speicherp 
laetze f rei . " sPRINTs PRINT: PRINT 
140 INPUT "Reicht das (sonst muessen Sie 
die Dimensionierung = Anzahl einz 

ugebender -Platten aendern ( /N) ";f* 

150 f «=LEFT« (UPPER« ( f *) , 1) 

160 IF f*="N" THEN CLEARsGOTO 50 
170 REM Anzeige des Hauptmenues 
180 CLS 

190 LDCATE 6,8 

200 PAPER 1sPEN 0:PRINT "Kartei fuer Sch 
allplatten":PAPER 0sPEN 1 
210 LOCATE 16,10 
220 PRINT "Menue" 

230 LOCATE 8,13 

240 PRINT “1.Platten eingeben" 
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250 LOCATE 8,14:PRINT "2.Platten 1aden" 
260 LOCATE 8,15:PRINT "3-Platten speiche 
rn" 

270 LOCATE 8,16:PRINT "4.Nach Platten su 
chen" 

280 LOCATE 8,17:PRINT "5.Platten ausgebe 
n" 

290 LOCATE 8,18:PRINT "6-Platten aendern 

ii 

300 LOCATE 6,21 

310 INPUT "Ihre Wahl <1Z2/3/4/5/6) "jf* 
320 IF f*<"l" OR T*>"6" THEN GOSUB 2300: 
GOTO 180 

330 ON VAL(ft) GOSUB 370,680,940,1220,17 
50,2020 

340 f$=" ":flt= ,M1 : f 2*=" " : nl=0 
350 GOTO 180 

360 REM Unterprogramm zur Eingabe 
von Daten 
370 FOR n=m TO z 
380 CLS 

390 PAPER 1:PEN 0:PRINT "1-Platten einge 

ben":PAPER 0:PEN 1 

400 PRINT 

410 GOSUB 2360 

420 PRINT 

430 -f 1$=" ": PRINT "EI attenname" 

440 INPUT p*(n):IF LEN(pt(n)> >40 THEN p* 
<n)=LEFT*(p*(n>,40) 

450 IF p«(n)= ,,,, THEN m=n:RETURN 
460 PRINT "Saenger/in, Gruppe" 

470 INPUT s4(n):IF LEN<s*<n))>40 THEN s* 
<n)=LEFT*<s*<n),40) 

480 PRINT "Nummer/Code" 

490 INPUT n*(n):IF LEN<n*(n))>40 THEN n* 
<n)=LEFT*(n*tn),40) 

500 REM Erste Anzeige der eingegebenen 
Daten mit 

Korrekturmoeglichkeit 


510 PRINT 
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520 PRINT "Noch einmal die eingegebenen 
Daten:" 

530 PRINT "Satznummer";n;"von bis zu M ;z 
540 PRINT 

550 PAPER 1:PEN 0:PRINT "PIattenname:":P 
APER 0:PEN 1 
560 PRINT p*(n> 

570 PAPER 1:PEN 0:PRINT "Saenger/in, Gru 
ppe:":PAPER 0:PEN 1 
580 PRINT s*<n) 

590 PAPER 1:PEN 0:PRINT "Nummer/Code:":P 
APER 0:PEN 1 
600 PRINT n*(n> 

610 PRINT 

620 INPUT "Richtig ( /N)";fl* 

630 fl*=UPPER*<f1*) 

640 IF fl*= ,I N" THEN PRINT:GOTO 430 
650 NEXT n 
660 RETURN 

670 REM Unterprogramm zum Laden 
von Dateien von Kassette 

680 CLS 

690 PAPER 1:PEN 0:PRINT ”2-Platten laden 
PAPER 0:PEN 1 
700 PRINT 
710 GDSUB 2360 
720 PRINT 

730 PRINT "Sie loeschen durch die Dateie 
ingabe alle bereits vorhandenen Date 

n im Speicher!" 

740 PRINT 

750 INPUT "Wollen Sie Daten laden (J/ ) 
";f 1* 

760 f1*=LEFT*(UPPER*(TI*),1) 

770 IF fl*="J" THEN GOTO 780 ELSE RETURN 
780 PRINT 

790 PRINT "Dateiname" 

800 INPUT dn* 

810 dn$="!"+dn« 

820 OPENIN dn* 
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830 INPUT #9,m 
840 PRINT 

850 PRINT "Die einzuladende Datei ";dn* 
860 PRINT "besteht aus";m-1;"Saetzen" 

870 FÜR n=l TO m-1 

880 INPUT #9 5 p*(n>,s*(n>,n«(n) 

890 PRINT ns PRINT p*(n>sPRINT s*(n):PRIN 
T n$(n) 

900 NEXT n 
910 CLOSEIN 
920 RETURN 

930 REM Unterprogramm zum Speichern 
von Dateien auf Kassette 

940 CLS 

950 PAPER 1:PEN 0:PRINT "3-Platten speie 

hern":PAPER 0:PEN 1 

960 PRINT 

970 GOSUB 2360 

980 PRINT 

990 INPUT "Wollen Sie Daten speichern <J 
/ ) ";f1$ 

1000 fl*=UPPER*(f1*> 

1010 IF THEN GOTO 1020 ELSE RETU 

RN 

1020 PRINT 

1030 IF dn*<>"" THEN PRINT "Soll unter d 
em Dateinamen ";dn*sINPUT "abgespeichert 
werden <J/ ) ";f2*:f2*=LEFT*(UPPER*<f2* 

),1)sIF f2*="J" THEN GOTO 1070 
1040 PRINT "Dateiname "? 

1050 INPUT dn* 

1060 dn*="!"+dn* 

1070 OPENOUT dnt 
1080 PRINT #9,m 
1090 PRINT 

1100 PRINT "Die zu speichernde Datei ";d 
nt;SPRINT "besteht aus";m-1;"Saetzen" 
1110 FOR n=l TO m-1 
1120 PRINT #9,p*(n> ? s*(n),n*(n> 

1130 PRINT n 
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1140 PRINT p* <n) 

1150 PRINT s*(n) 

1160 PRINT n* <n) 

1170 PRINT 
1190 NEXT n 
1190 CLOSEÜUT 
1200 RETURN 

1210 REM Unterprogramm zum Suchen nach 
Platten, Saengern oder 
Nummern 

1220 CLS 

1230 PAPER 1:PEN 0:PRINT "4.Nach Platten 
suchen":PAPER 0sPEN 1 
1240 PRINT 
1250 GOSUB 2360 
1260 PRINT 

1270 REM Vorgabe eines Untermenues: 

Suche nach: 

1) Plattenname 

2) Saenger/in, Gruppe 

3) Nummer/Code 

1280 PRINT "Wonach wollen Sie suchen" 
1290 PRINT 

1300 PRINT "1.Plattenname" 

1310 PRINT "2.Saenger/in, Gruppe" 

1320 PRINT "3.Nummer/Code" 

1330 PRINT 

1340 INPUT "Ihre Wahl (1/2/3) ";-fl* 

1350 IF fl*<"l" OR fl*>"3" THEN RETURN 
1360 ON VAL(fit) GOSUB 1390,1510,1620 
1370 -f 1$=" " : f2*=" " : n 1=0: GOTO 1220 
1380 REM Suche nach Plattenname 
1390 CLS 

1400 PRINT "Plattenname" 

1410 INPUT p*:IF LEN(p$)>40 THEN p*=LEFT 
*(p*,40) 

1420 IF p*="" THEN RETURN 
1430 FOR n=l TO m-1 

1440 IF p*=p*(n) THEN PRINT n:PRINT p*(n 
)sPRINT s$(n)sPRINT n$(n):nl=nl+l 
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1450 IF n1=5 THEN nl=0:GOSUB 2330 

1460 NEXT n 

1470 PRINT 

1480 GOSUB 2330 

1490 RETURN 

1500 REM Suche nach Saenger/in, Gruppe 
1510 CLS 

1520 PRINT "Saenger/in, Gruppe" 

1530 INPUT s*sIF LEN(s*)>40 THEN s*=LEFT 
«(5«,40) 

1540 IF 5 *="" THEN RETURN 
1550 FOR n=l TQ m-1 

1560 IF 5t=5t(n) THEN PRINT ns PRINT p*(n 

):PRINT s$(n)sPRINT n$(n):nl=nl+l 

1570 IF nl=5 THEN nl=0sGOSUB 2330 

1580 NEXT n 

1590 PRINT 

1600 GOSUB 2330 

1610 RETURN 

1620 CLS 

1630 REM Suche nach Nummer/Code 
1640 PRINT "Nummer/Code" 

1650 INPUT n* 

1660 IF n*="" THEN RETURN 
1670 FOR n=l TO m-1 

1680 IF n$=nt(n) THEN PRINT n:PRINT p*(n 

)SPRINT s«(n)SPRINT n*(n):nl=nl+l 

1690 IF n1=5 THEN nl=0sGOSUB 2330 

1700 NEXT n 

1710 PRINT 

1720 GOSUB 2330 

1730 RETURN 

1740 REM Unterprogramtn zur Ausgabe der 
gespeicherten Daten auf 
Bildschirm oder Drucker 

1750 CLS 

1760 PAPER IsPEN 0sPRINT "5.Platten ausg 
ebenPAPER 0 s PEN 1 
1770 PRINT 
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1780 GOSUB 2360 
1790 PRINT 

1800 PRINT “Auf Bildschirm oder Drucker 
ausgeben?" 

1810 INPUT “(B/D) ";f 2* 

1820 IF f 2*=“" THEN RETURN 
1830 f2*=LEFT*<UPPER*<f2*>,1) 

1840 IF f2*="D" THEN GOTO 1950 
1850 REM Ausgabe der Daten auf Monitor 
1860 CLS:FOR n=l TO m-1 
1870 nl=nl+l 

1880 IF nl=5 THEN n1=0:GOSUB 2330sCLS 
1890 PRINT nsPRINT p*<n>SPRINT s*(n)sPRI 
NT n*(n) 

1900 NEXT n 
1910 PRINT 
1920 GOSUB 2330 
1930 RETURN 

1940 REM Ausgabe der Daten auf Drucker 
1950 FOR n=l TO m-1 

1960 PRINT #8,ns PRINT #8,p*(n>sPRINT #8, 

s*<n)SPRINT #8,n*(n)SPRINT #8 

1970 NEXT n 

1980 PRINT 

1990 GOSUB 2330 

2000 RETURN 

2010 REM Unterprogramm zur Aenderung 
von Daten im Speicher 

2020 CLS 

2030 PAPER 1sPEN 0sPRINT "6.Platten aend 

ern"sPAPER 0sPEN 1 

2040 PRINT 

2050 GOSUB 2360 

2060 PRINT 

2070 INPUT "Welche Plattennummer ";nl 
2080 IF nl>m—1 OR nl<0 THEN GOSUB 2300sG 
OTO 2070 

2090 IF n1=0 THEN RETURN 
2100 PRINT 
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2110 PRINT nlsPRINT p*(nl):PRINT s*(nl>: 
PRINT n*(nl> 

2120 PRINT 

2130 PRINT "Was hat sich geaendert (Nein 
=<ENTER>)?" 

2140 PRINT p*(nl) 

2150 INPUT d*:IF d*<>"" THEN p*(nl)=d* 
2160 PRINT 5$tnl) 

2170 INPUT d*:IF d*<>"" THEN s*(nl)=d* 
2180 PRINT nH(nl) 

2190 INPUT d*:IF d*<>"" THEN n«<nl)=d« 
2200 CLS 

2210 PRINT "Die Eingabe zu Plattennummer 
";nl;" 

2220 PRINT p*(nl) 

2230 PRINT 5$(nl) 

2240 PRINT n$(nl) 

2250 PRINT 
2260 G05UB 2330 
2270 n1=0 
2280 GOTO 2020 

2290 REM Unterprogramm zur Anzeige bei 
■f al scher Ei ngabe 

2300 PRINT:PEN etfekt:PRINT TAB(12) "Fal 
sehe Eingabe!":PEN normal:GOSUB 2330:RET 
URN 

2310 a*=INKEY*:IF a*="" THEN GOTO 2310 E 
LSE RETURN 

2320 REM Unterprogramm zum Einfrieren 
der Bildschirmanzeige 
2330 PRINT:PRINT TAB(7) “<Bitte eine Tas 
te druecken>" 

2340 a*=INKEY*:IF a*="" THEN GOTO 2340 E 
LSE RETURN 

2350 REM Allgemeines Unterprogramm 
2360 PRINT "Zum Menue zurueck durch <ENT 
ER> ohne Worteingabe" 

2370 RETURN 
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Sporttabelle 


Dieses Programm kann Ihnen in Zukunft sehr viel Freude bereiten, 
und noch mehr Zeit ersparen. 

Hier wird genau das vom Computer verwaltet, was sich innerhalb 
eines Jahres in Sportvereinen so oft und so regelmäßig abspielt. 
Als Paradebeispiel sei der Fußball genannt, der auch als Vorbild 
zu diesem Programm diente. 

Zu Beginn der Eingabe haben Sie die Wahl, bis zu zwanzig Vereine 
gleichzeitig zu verwalten. Anschließend fragt Sie der CPC, ob 
die Vereinsnamen, die in DATA-Zeilen bereits gespeichert sind 
(1. und 2. Bundesliga), für die Saison zutreffen oder ob Sie 
selbst die Namen Ihrer bis zu zwanzig Vereine eingeben wollen. 

Auch für die Begegnungen der Vereine in der Hin- und Rückrunde 
sind bereits alle möglichen Paarungen gespeichert. Wollen Sie 
diese Daten vom Compulerspeicher übernehmen, so beantworten Sie 
auch diese Frage mit j(a). 

Hierzu ein Hinweis: Die in DATA-Zeilen gespeicherten Begegnungen 
der Clubs resultieren aus einer allgemeinen Aufstellung, wobei 
schließlich jede Mannschaft gegen jede Mannschaft nach einer 
Saison zweimal gespielt hat, einmal zu Hause, ein anderes Mal 
auswärts. Wenn Sie die Daten aus den DATA-Zeilen nicht überneh¬ 
men wollen, so geben Sie bitte, der Bildschirmanzeige entspre¬ 
chend, alle Spieltage nacheinander in den Computerspeicher ein. 
Jedoch brauchen Sie nur die Hälfte aller Spielpaarungen einzuge¬ 
ben, denn die Rückrunde errechnet der CPC selbstverständlich 
ohne Ihr Zutun. 

Anschließend werden Sie mit einem Menü konfrontiert, das Ihnen 
drei Möglichkeiten eröffnet: 1. Spieltag eingeben 2. aktuelle 
Tabelle zeigen 3. Spieltag ansehen. 
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Geben wir also zuerst die Ergebnisse des 1. Spieltags ein. Da es 
Vorkommen kann, daß das eine oder andere Spiel ausfällt, gibt es 
auch hierfür eine Hilfe: Das Ergebnis '99,99' bedeutet; Spiel 
ausgefallen. 

Wenn nicht bereits der zweite Spieltag erfolgt ist und diese 
Eintragungen Vorrang genießen, konen wir uns nun unsere Eingaben 
in übersichtlicher Form auf den Monitor holen. Wie funktioniert 
das nun: 3. Spieltag ansehen? Uns wird nach der Auswahl dieses 
Menüpunktes die Möglichkeit eröffnet, nacheinander die ganze 
Saison auf Tastendruck vor unseren Augen abspielen zu lassen. 
Wir können aber selbstverständlich auch gezielt einige Spieltage 
zur Anzeige bringen. 

Springen wir in die Rückrunde (bei 20 Vereinen ab Spiel 20), so 
wird uns das - falls vorhanden - Spiel von der Hinrunde 
ebenfalls auf dem Bildschirm angezeigt. 

Ist eine Begegnung vor ein paar Spieltagen z.B. durch schlechtes 
Wetter ausgefallen (Eingabe '99, 99'), so können wir die Eintra¬ 
gung dieses Ergebnises selbstverständlich nachholen. Hierzu 
bitte wieder 1. 'Spieltag eingeben' anwählen und den entspre¬ 
chenden Spieltag aufrufen, wo die eine oder andere Partie noch 
aussteht. Der CPC wird mit einem kurzen Piepsen die bereits 
fertigen Spiele übergehen und genau da anhalten, wo noch Eintra¬ 
gungen vorzunehraen sind! Waren gleich mehrere Partien an einem 
Spieltag ausgefallen, so müssen die noch nicht nachgespielten 
Begegnungen auch bei dieser Wiederholungseingabe erneut mit ’99, 
99' (ausgefallen) quittiert werden. 

Nun aber zum Kernstück des Programms, hin zur Tabellener¬ 
rechnung. Es dauert ein klein wenig, bis die Tabelle steht, 
dafür ist sie aber nicht nur geordnet, sondern auch noch sehr 
ausführlich auf 80 Zeichen dargestellt: Hinter der erreichten 
Platzziffer und dem Vereinsnamen wird die Anzahl der bereits 
erfolgten Spiele des jeweiligen Vereins angezeigt; kurz dahinter 
ist aufgeführt, wie viele Spiele von diesem Verein gewonnen 
wurden, wie viele verloren gingen und selbstverständlich auch, 
wie oft unentschieden gespielt wurde! Schließlich wird auch noch 
das aktuelle Tor- und Punkteverhältnis zur Anzeige gebracht, 
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jeweils ergänzt durch die positive oder negative Differenz aus 
Plus- und Minuspunkten. 

So bleibt die Übersicht jederzeit gewahr, wie und wo mit welchen 
Ergebnissen wann gespielt wurde und wie nun die aktuelle Platz¬ 
ziffer der jeweiligen Vereine ist. 

Ein aufwendiges Programm, das allerdings eines erfordert: Lassen 
Sie den CPC unter Strom! Eine Datenspeicherung ist absichtlich 
noch nicht eingefügt, denn mit Kassette würde dies bei solch 
einer Datenfülle einfach zu lange dauern. Warten wir geduldig 
auf die Diskettenstation! Die Anpassung dürfte Ihnen nicht allzu 
schwerfallen, da wir zu Beginn die dimensionierten Variablen in 
einer REM-Zeile erklärt haben. Hingegen können Sie einen Prin¬ 
ter-Ausdruck der Tabelle ohne weiteres vornehmen, wenn Sie die 
dort stehenden PRINT-Befehle (Zeile 900 bis 960) um 1 #8* ergän¬ 
zen. 


Spieltag 20 


1 Duisburg Hannover 

2 St.Paul i Aachen 

3 BW 90 Hartha 

4 S t u 11 ga . Nattens. 

5 Oberhau, Saarbru. 

6 Darnsta. Solingen 

7 Freiburg Kassel 

8 Koeln Nuernbe 

9 Ulrt Homburg 

10 Offenba, Buersta 


<Bitte eine Taste druecken) 
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10 REM Sporttabelle 

20 REM CPC464 Basic Programme 

30 REM Copyright 1984 DATA BECKER St 

Rainer Lueers 

40 INK 0,1: INK 1,24: INK 2, 1,24: et-f ekt=2: 
normal=1:PEN 1:PAPER 0 
50 MODE 1 

60 REM Auswahl zwischen 4 bis 
20 Vereinen 

70 INPUT "Vereine (4/6/8/10/12/14/16/18/ 
20 ) ";f* 

80 REM Liste der Variablen, die 
dimensioniert werden mit 
ihren Bedeutungen 
90 REM a$< )=Vereinsnamen 

b< , )=Spiel stattge-funden 
c < , , )=Ergebnis 

e< , )=Tore insg. 

■f ( , ) =reingelassen insg. 

100 REM g( , )=gewonnen insg. 

h( , )=unentschieden insg. 

i( , )—verloren insg. 

k( , , )=Spielpaarung 

zl bis z5=-fuer Sorti er r out ine 
110 f=VAL(f*):IF f/2<>INT(T/2) THEN PRIN 
T:GOSUB 1290:GOTO 50 

120 IF f<4 OR f >20 THEN GOSUB 1290:GOTO 
50 

130 DIM a* (*) ,b(f *2,t/2) ,c(-f ,f*2-2,2) ,e( 
f),f <f>,g <T>,h (f),i<f),k (t-1, -f /2,2) , z 1 <-f 
+ 1) ,z2(t + l) ,z3(-F + l) ,z4(f + l) ,z5(f+l) 

140 REM Eingabe eigener Vereinsnamen 

oder einiesen der Vereinsnamen 
aus DATA—Zeilen 

150 INPUT "Namen aus Programmzeilen <J/ 

160 f*==UPPER$(-f*) : IF LEFT* <f *, 1) =" J " THE 

N GOTO 230 

170 FÜR n = l TO -F 

180 PRINT "Verein";n;:INPUT ": M ;ft 
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190 IF f*= ,,n THEN GOTO 180 

200 IF LEN (-f $) >10 THEN a* (n) =LEFT$ (f *, 10 

) ELSE a*(n)=f* 

210 NEXT n 
220 GGTO 350 

230 ON f GOSUB 250,250,250,250,250,260,2 
50,270,250,280,250,290,250,300,250,310,2 
50,320,250,330 
240 GGTO 350 

250 RESTGRE 6350:FÜR n=l TO f:READ a*(n) 
:NEXT n:RETURN 

260 RESTORE 6320:FÜR n=l TO f:READ a*<n) 

:NEXT n:RETURN 

270 RESTORE 6290:FOR n=l TO f:READ a*(n) 

:NEXT n:RETURN 

280 RESTORE 6260:FOR n=l TO f:READ a*<n> 

:NEXT n:RETURN 

290 RESTORE 6230:FOR n=l TO f:READ a*<n> 

:NEXT n:RETURN 

300 RESTORE 6200:FOR n=l TO f:READ a*<n> 

:NEXT n:RETURN 

310 RESTORE 6170:FOR n=l TO f:READ a$(n> 

:NEXT n:RETURN 

320 RESTORE 6130:FOR n=l TO f:READ a*<n) 

:NEXT n:RETURN 

330 RESTORE 6080:FOR n=l TO f:READ a*(n) 

:NEXT n:RETURN 

340 REM Spielfolge in DATA-Zeilen 

(Liebliches System) kann heran¬ 
gezogen werden; es ist aber 
auch moeglich, alle Spielzu— 
sammen Stellungen selb st 
einzugeben 

350 INPUT "Spielfolge wie in DATA-Zeilen 
<J/ ) " ;f$:f$=UPPER$(f $):IF LEFT*(f*,l)= 
"J" THEN GOTO 420 

360 PRINT:PRINT:PRINT "Spielfolge bitte 
mit Zahlen eingeben <z.B. 1 <Kom 

ma> 2 <ENTER>) vorige Eingabe wi 

ederholen —>0 eingeben" 
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370 FÜR n=l Tü F-1:PRINT:PRINT:PRINT "Sp 
ieltag";n:PRINT 
380 FÜR m=l Tü F/2 

390 PRINTsPRINT "Spiel n ;m:INPUT a,b:IF a 
>F OR b>F OR a=b THEN GOTO 390 ELSE IF a 
=0 OR b=0 THEN m=m—1:GOTO 390 ELSE k(n,m 
,l)=a:k(n,m,2>=b:a=0:b=0:PRINT a* <k<n,m, 
1 ));" - ";a*(k<n,m,2>> 

400 NEXT m,n 
410 GOTO 530 

420 ON -f GOSUB 440,440,440,440,440,450,4 
40-460-440-470-440.480-440.490.440.500.4 


40,510,440,520 

430 GOTO 530 

440 RESTORE 5000:FOR 

TO F/2:READ k(n,m,l), 

ETURN 

450 RESTORE 5040:FOR 
TO F/2:READ k(n,m,1), 
ETURN 

460 RESTORE 5100:FOR 
TO F/2:READ k(n,m,l>, 
ETURN 

470 RESTORE 5180:FOR 
TO F/2:READ k(n,m,1), 
ETURN 

480 RESTORE 5280:FOR 
TO F/2:READ k<n,m,l>, 
ETURN 

490 RESTORE 5400:FOR 
TO F/2:READ k(n,m,l>, 
ETURN 

500 RESTORE 5540:FOR 
TO F/2:READ k(n,m,l), 
ETURN 

510 RESTORE 5700:FOR 
TO F/2:READ k(n,m,l). 


n=l TO F-1:FOR m=l 
k(n,m,2):NEXT m,n:R 

n=l TO F-1:FOR m=l 
k(n,m,2):NEXT m,n:R 

n=l TO F-1:FOR m=l 
k(n,m,2):NEXT m,n:R 

n=l TO F-1:FOR m=l 
k(n,m,2):NEXT m,n:R 

n=l TO F-1:FOR m=l 
k(n,m,2>:NEXT m,n:R 

n=l TO F-1:FOR m=i 
k(n,m,2):NEXT m,n:R 

n=l TO F-1:FOR m=l 
k(n,m,2):NEXT m,n:R 

n=l TO F-1:FOR m=l 
k(n,m,2):NEXT m,n:R 


ETURN 
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520 RESTGRE 5880: FOR n=l TO f-l:FOR m=l 
TO f/2:READ k (n, m, 1 > , k <n, m, 2) : NEXT m,n:R 
ETURN 

530 MODE 1: PEN effekt:LOCATE 7,7: PRINT " 
Sportverein—Tabellen";:PEN normal 
540 LOCATE 7,10 

550 PRINT "1.Spieltag eingeben" 

560 LOCATE 7,11 

570 PRINT "2.aktuelle Tabelle zeigen" 

580 LOCATE 7,12 

590 PRINT "3.Spieltag ansehen“ 

600 LOCATE 7,14 

610 INPUT "Ihre Wahl (1 bis 3> "jf* 

620 IF VAL<f*Xl OR VAL(f*>>4 THEN GOSUB 
1270:GOSUB 1290:GOTO 420 
630 ON VAL(f*) GOSUB 660,900,1010 
640 GOTO 530 

650 REM Spieltag eingeben 
660 MODE 1 

670 INPUT "Welcher Spieltag ";f*:IF VAL< 
«XI OR VAL (ft) >f*2-2 THEN GOSUB 1290: G 
OTO 670 

680 IF VAL(f*)>f-l THEN GOTO 740 
690 FOR n=l TO T/2:PRINT "Spiel“;n 
700 IF b(VAL(f *),n)< >0 THEN PRINT CHR*<7 
);"Fehler! Spielergebnis bekannt:":PRINT 
a$(k(VAL(ft),n,1»);;a$<k(VAL CT*),n,2 
));":";c(k<VAL(T*),n,1),VALCft),1);"-"je 
(k(VAL(f*>,n,1),VAL(f*),2):GOTO 730 
710 PRINT a*(k(VAL<f*>,n,1));" - “;a*(k( 
VAL(f$>,n,2));:INPUT a,b:IF a=99 THEN PR 
INT 11 ausgef al len" : b ( VAL (f t) , n) =0: GOTO 73 
0 ELSE GOSUB 790 

720 b<VAL(f*>,n)=l:c(k <VAL(f*>,n,1),VAL( 
f*>,l)=a:c(k(VAL(T*),n,1),VAL(T*),2>=b:c 
(k(VAL(f $),n,2),VAL(ft),1)=b:c(k(VAL(f*) 
,n,2>,VAL(f*),2)=a 
730 NEXT n:RETURN 

740 FOR n=l TO T/2:PRINT "Spiel“;n 
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750 IF b(VAL(ft), n) < >0 THEN PRINT CHRt(7 
);"Fehler! Spielergebnis bekannt:"sPRINT 
at (k (VAL (ft)—f+l,n,2) ) ; ; at (k (VAL (f t) 

—f+1, n, 1) );; c (k (VAL (f t>-f+ 1, n,i>,VAL( 
ft),1); M —c (k (VAL(ft) —f+1,n, 1) , VAL(ft) , 
2) sGOTO 780 

760 PRINT at(k(VAL(ft) —f + l,n,2));" - ";a 
t(k(VAL(ft)-f-H,n,l));:INPUT a,b:IF a=99 
THEN PRINT "ausgefal1en":b(VAL(ft) ,n>=0 
:GOTO 780 ELSE GOSUB 840 

770 b(VAL(ft),n)=l:c(k (VAL(ft)-f+l,n,1), 
VAL (ft) , l)=a:c(k(VAL(ft)-f+1,n, 1) ,VAL(ft 
), 2) =b: c (k(VAL(ft)-f+l,n,2),VAL(ft) , l)=b 
:c(k(VAL(ft)—f+l,n,2),VAL(ft),2)=a 
7B0 NEXT n:RETURN 

790 e(k (VAL(ft) ,n,1))=e(k (VAL (ft) ,n, 1) ) + 
a:f(k(VAL(ft),n,1)>=f(k(VAL(ft),n,1))+b: 
e (k (VAL (ft) , n, 2) ) =e (k (VAL (ft),n,2)) +b: f ( 
k (VAL (ft) ,n,2) )=f (k(VAL(ft) ,n,2) )+a 
800 IF a=b THEN h (k (VAL (f t) , n, 1) ) =h (k (VA 
L(ft>,n,1)>+l:h(k(VAL(ft),n,2>)=h(k(VAL( 
ft),n,2))+l 

810 IF a>b THEN g (k (VAL (f t) , n, 1) ) =g (k (VA 
L(ft) ,n, 1) )+2:i (k (VAL (-ft) , n, 2) )=i (k(VAL( 
ft),n,2))+2 

820 IF a<b THEN i(k(VAL(ft),n,1))=i(k(VA 
L(ft) , n, 1 > ) +2:g (k (VAL (-ft) , n, 2> ) =g (k (VAL( 
ft) , n,2))+2 
830 RETURN 

840 e(k(VAL(ft)-f+l,n,1))=e(k(VAL(ft) —f + 

1, n, 1) >+a:f (k (VAL (-ft) —f+1,n, 1) )=f (k(VAL( 

ft)-f+l,n, 1) )+b:e(k(VAL(ft)-f+l,n,2))=e( 

k(VAL(ft)-f+l,n,2))+b:f(k(VAL(ft)-f+1,n, 

2jM (k (VAL(ft)—f+l,n,2) )+a 

850 IF a=b THEN h(k(VAL(ft)-f+1,n,1))=h( 

k (VAL (ft)-f+l,n,l) )+l :h (k (VAL (-ft) —f+ 1, n, 

2))=h(k(VAL(ft) —f+ 1,n,2))+l 

860 IF a>b THEN g(k(VAL(ft) —f + 1,n,1))=g( 

k(VAL(ft)-f+l,n,1))+2:i(k(VAL(ft)-f+l,n, 

2) )=i (k (VAL (ft) —f+ 1, n, 2) )+2 
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870 IF a<b THEN i<k<VAL(f*> -i +1,n,1))=i< 
k (VAL(-f*) -f+l,n, 1))+2: g (k (VAL (-f*) ~f + l,n, 
2))=g(k(VAL(f*)-f+l,n,2>)+2 
S80 RETURN 

890 REM Aktuelle Tabelle zeigen 

900 MODE 2:G0SUB 1180 

910 PRINT"P1. Verein Sp. + 

- Torverh. <> Pkte. <> 

■I 

920 PRINT STRING*(71,"= n >:FÜR n=l TO f 
930 PRINT n;TAB(5);a*(z5(n)>;TAB(18);(g( 
z5(n)>+(h(z5(n))*2)+i(z5(n)))/2;TAB(24); 
g(z5(n));TAB(29);h(z5(n));TAB(34);i(z5(n 
) ) ; TAB (40) ;e(z5(n) ) ; TAB (45) ; " : " ; -f (z5 (n) ) 

5 

940 PRINT TAB(51);e(z5(n))—■f (z5(n));TAB( 
57);g(z5(n))+h(z5(n));TAB(61);":";TAB(62 
)jh(z5(n))+i(z5(n>);TAB(68);g(z5(n)>-i(z 
5 (n) ) 

950 NEXT n 

960 PRINT STRING*(71,"=") 

970 PRINT TAB(21);"<Bitte eine Taste dru 
ecken >" 

980 a*=INKEY*:IF a*="" THEN GOTO 980 
990 RETURN 

1000 REM Spieltag ansehen 

1010 CLS:PRINT:INPUT "Die ganze Saison ( 
J7 ) ";f*:f*=UPPER*(f*>:IF LEFT*(f*,1)=" 

J" THEN GOTO 1100 

1020 PRINT "Spieltag ( 1 bis";T*2-2;:INP 
UT " ) " ;f*:IF VAL(f*Xl OR VAL (f *) >f *2-2 

THEN GOSUB 1290:GOTO 1020 ELSE IF VAL(f 
*)>f-l THEN GOTO 1060 

1030 n=VAL (-ft) : CLS: PRINT "Spi eltag" ; n: PR 
INT:PRINT:PRINT:FOR m=l TO f72:PRINT m;T 
AB(5);a*(k(n,m,1));TAB(15);a*(k(n,m,2)); 
1040 IF b(n,m)=0 THEN PRINT TAB(33); n - 
: ELSE PRINT TAB(32);c(k(n,m,1),n,1) 

;TAB(36);":";TAB(37);c(k(n,m,1),n,2); 
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1050 NEXT m:PRINT:PRINT:GOSUB 1270sGOTO 
1170 

1060 n=VAL(f*>sCLSsPRINT “Spieltag";nsn= 
n-(f-l)sPRINTsPRINTsPRINT:FOR m=l TO f/2 
:PRINT m;TAB(5);a$ <k(n,m,2)) ; TAB (14) ; a* ( 
k(n,m,1>);TAB(23); 

1070 IF b(n,m)=l THEN PRINT c(k(n,m,l),n 
,2);TAB(27);"s";TAB(28);c(k(n,m,1),n,1); 

ELSE PRINT " - s ; 

1080 IF b(n+(F—1),m)=0 THEN PRINT TAB(33 
);"- s ELSE PRINT TAB(32);c(k(n,m,1) 

,n+f-1,1);TAB(36); ":";TAB(37>;c(k(n,m,l) 

,n+F—1,2); 

1090 NEXT msPRINTsPRINT:GOSUB 1270sGOTO 
1170 

1100 FOR n=l TO f-1sCLSsPRINT “Spieltag" 

;n:PRINTsPRINTsPRINTsFOR m=l TO T/2sPRIN 
T m;TAB(5);a*(k(n,m,1)) } TAB(15);a*(k(n,m 
,2)); 

1110 IF b(n,m)=0 THEN PRINT TAB(33);”- 
s ELSE PRINT TAB(32);c(k(n,m,1),n,1) 

;TAB(36);";TAB(37);c(k(n,m,l),n,2); 
1120 NEXT msPRINT:PRINT:GOSUB 1270:NEXT 
n 

1130 FOR n=l TO f-1:CLS:PRINT “Spieltag" 
;n+t-lSPRINT:PRINT:PRINTsFOR m=l TO f/2: 
PRINT m;TAB(5);a4(k(n.m,2));TAB(14);a*(k 
(n, m, 1) ) ; TAB (23) ; 

1140 IF b(n,m)=0 THEN PRINT " - : —“; E 

LSE PRINT c(k(n,m,l),n,2);TAB(27);“:";TA 
B(28);c(k(n,m,l),n,l); 

1150 IF b(n+f—1,m)=0 THEN PRINT TAB(33); 

ELSE PRINT TAB (32) ; c (k (n, m, 1) , 
n+f-1,1);TAB(36);“:";TAB(37);c(k(n,m,1) , 
n+t — 1 4 2); 

1160 NEXT m:PRINT:PRINT:GOSUB 1270:NEXT 
1170 RETURN 

1180 REM Sortierunterroutine 

1190 FOR n=l TO f:z1(n)=g(n)+h(n):z2(n) 

=e(n)—f(n):z3(n)=e(n):z4(n)=—1sNEXT n 
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1200 FOR n=l TO f 
1210 FOR m=l TO f 

1220 IF z1<m)>z4(n) THEN z4<n)=z1(m)sa= 
in: GOTO 1250 

1230 IF zl(m)=z4(n) AND z2(m)>z2(a) THE 
N z4(n)=zl(m):a=m:GOTO 1250 
1240 IF zl(m)=z4(n) AND z2Cm>=z2(a) AND 
z3(m)>z3(a) THEN z4(n)=zl<m)sa=m 
1250 NEXT m:zl (a)=-l:z5(n)=a:a=-f+l:NEXT 
n 

1260 RETURN 

1270 PRINTsPRINT TAB(7) "<Bitte eine Tas 
te druecken>" 

1280 a*=INKEY*:IF a*="“ THEN GOTO 1280 E 
LSE RETURN 

1290 PEN ef-fekt: PRINT TAB (12) "Falsche E 

ingabe!":PEN normal:GOSUB 1270:RETURN 

5000 REM Datas fuer 4 Vereine 

5010 DATA 1,4,2,3 

5020 DATA 4,3,1,2 

5030 DATA 2,4,3,1 

5040 REM Datas tuer 6 Ver ei ne 

5050 DATA 1,6,2,5,3,4 

5060 DATA 6,4,5,3,1,2 

5070 DATA 2,6,3,1,4,5 

5080 DATA 6,5,1,4,2,3 

5090 DATA 3,6,4,2,5,1 

5100 REM Datas fuer 8 Vereine 

5110 DATA 1,8,2,7,3,6,4,5 

5120 DATA 8,5,6,4,7,3, 1,2 

5130 DATA 2,8,3,1,4,7,5,6 

5140 DATA 8,6,7,5,1,4,2,3 

5150 DATA 3,8,4,2,5,1,6,7 

5160 DATA 8,7,1,6,2,5,3,4 

5170 DATA 4,8,5,3,6,2,7,1 

5180 REM Datas fuer 10 Vereine 

5190 DATA 1,10,2,9,3,8,4,7,5,6 

5200 DATA 10,6,7,5,8,4,9,3,1,2 

5210 DATA 2,10,3,1,4,9,5,8,6,7 

5220 DATA 10,7,8,6,9,5,1,4,2,3 
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5230 

DATA 

3, 10,4,2,5,1,6,9,7,8 


5240 

DATA 

10,8,9,7,1,6,2,5,3,4 


5250 

DATA 

4,10,5,3,6,2,7,1,8,9 


5260 

DATA 

10,9,1,8,2,7,3,6,4,5 


5270 

DATA 

5,10,6,4,7,3,8,2,9, 1 


5280 

REM Datas -fuer 12 Vereine 


5290 

DATA 

1,12,2,11,3,10,4,9,5,8,6,7 


5300 

DATA 

12,7,8,6,9,5,10,4,11,3,1,2 


5310 

DATA 

2,12,3,1,4,11,5,10,6,9,7,8 


5320 

DATA 

12,8,9,7,10,6,11,5,1,4,2,3 


5330 

DATA 

3,12,4,2,5,1,6,11,7, 10,8,9 


5340 

DATA 

12,9,10,8,11,7,1,6,2,5,3,4 


5350 

DATA 

4,12,5,3,6,2,7,1,8,11,9,10 


5360 

DATA 

12,10,11,9,1,8,2,7,3,6,4,5 


5370 

DATA 

5,12,6,4,7,3,8,2,9,1,10, 11 


5380 

DATA 

12,11,1,10,2,9,3,8,4,7,5,6 


5390 

DATA 

6 ,12,7,5,8,4,9,3,10,2,11,1 


5400 

REM Dataa fuer 14 Vereine 


5410 

,8 

DATA 

1,14,2,13,3,12,4,11,5,10,6, 

9,7 

5420 

DATA 

14,8,9,7,10,6,11,5,12,4,13, 

3,1 

5430 

DATA 

2,14,3,1,4,13,5,12,6,11,7,10,8 

5440 

*3 

DATA 

14,9,10,8,11,7,12,6,13,5,1, 

4,2 

5450 

10 

DATA 

3,14,4,2,5,1,6,13,7,12,8,11 

,9, 

5460 

,4 

DATA 

14,10,11,9,12,8,13,7,1,6,2, 

5,3 

5470 

11 

DATA 

4,14,5,3,6,2,7,1,8,13,9,12, 

10 , 

5480 

>5 

DATA 

14,11,12,10,13,9,1,8,2,7,3, 

6,4 

5490 

12 

DATA 

5,14,6,4,7,3,8,2,9,1,10, 13, 

11 , 

5500 

,6 

DATA 

14,12,13,11,1,10,2,9,3,8,4, 

7,5 

5510 

13 

DATA 

6,14,7,5,8,4,9,3,10,2,11,1, 

12 , 
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5930 DATA 3,20,4,2,5,1,6,19,7,18,8,17,9, 

16.10.15.11.14.12.13 

5940 DATA 20,13,14,12,15,11,16,10,17,9,1 

8.8.19.7.1.6.2.5.3.4 

5950 DATA 4,20,5,3,6,2,7,1,8,19,9,18,10, 

17.11.16.12.15.13.14 

5960 DATA 20,14,15,13,16,12,17,11,18,10, 

19.9.1.8.2.7.3.6.4.5 

5970 DATA 5,20,6,4,7,3,8,2,9,1,10,19,11, 
18,12,17,13,16, 14, 15 

5980 DATA 20,15,16,14,17,13,18,12,19,11, 

1.10.2.9.3.8.4.7.5.6 

5990 DATA 6,20,7,5,8,4,9,3,10,2,11,1,12, 
19,13,18,14,17,15,16 

6000 DATA 20,16,17,15,18,14,19,13,1,12,2 
,11,3,10,4,9,5,8,6,7 

6010 DATA 7,20,8,6,9,5,10,4,11,3,12,2,13 
,1,14,19,15,18,16,17 

6020 DATA 20,17,18,16,19,15,1,14,2,13,3, 

12.4.11.5.10.6.9.7.8 

6030 DATA 8,20,9,7,10,6,11,5,12,4,13,3,1 

4.2.15.1.16.19.17.18 

6040 DATA 20,18,19,17,1,16,2,15,3,14,4,1 

3.5.12.6.11.7.10.8.9 

6050 DATA 9,20,10,8,11,7,12,6,13,5,14,4, 

15.3.16.2.17.1.18.19 

6060 DATA 20,19,1,18,2,17,3,16,4,15,5,14 
,6,13,7,12,8,11,9, 10 

6070 DATA 10,20,11,9,12,8,13,7,14,6,15,5 
,16,4,17,3,18,2,19,1 

6080 REM Datas fuer 2.Liga 1984/85 
Beispiel -fuer 20 Vereine 
6090 DATA Hannover,Aachen,Hertha,Wattens 
.,Saarbru. 

6100 DATA Solingen,Kassel,Nuernbe.„Hombu 
rg,Buersta. 

6110 DATA O-Ffenba. , Ul m, Koel n, Frei bürg, Da 
rmsta. 

6120 DATA Oberhau. ? Stuttga.,BW 90,St.Pau 
1 i,Duisburg 
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6130 REM Datas fuer Bundesliga 1984/85 
Beispiel fuer 18 Vereine 
6140 DATA Muenchen,Gladbach,Werder,Bochu 
m,Hamburg,Kaisers. 

6150 DATA Koeln,Stuttga.,Uerding.,Leverk 
u. 5 Karlsru.,Frankfu. 

6160 DATA Waldhof,Schalke,DuesselBiele 

fe.,Dortmund,Braunsc - 

6170 REM Datas fuer 16 Vereine 

6180 DATA A,B,C,D,E,F,G,H 

6190 DATA I,J,K,L s M,N,0,P 

6200 REM Datas fuer 14 Vereine 

6210 DATA A ? B,C ? D,E,F.,G 

6220 DATA H,I,J,K,L,M,N 

6230 REM Datas fuer 12 Vereine 

6240 DATA A,B_,C,D,E,F 

6250 DATA G, H, I , J, K, L 

6260 REM Datas fuer 10 Vereine 

6270 DATA A ? B, C, D, E 

6280 DATA F, G,H,I,J 

6290 REM Datas fuer 3 Vereine 

6300 DATA A, B;, C, D 

6310 DATA E ? F,G,H 

6320 REM Datas fuer 6 Vereine 

6330 DATA A.,B,C 

6340 DATA D,E,F 

6350 REM Datas fuer 4 Vereine 

6360 DATA A„B 

6370 DATA C,D 
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Knobeln 


Es ist anzunehmen, wie leider bei so vielen neuen Homecomputern 
immer wieder zu beoachten, daß der CPC in der Anfangszeit gro¬ 
ßenteils mit Spielsoftware ausgerüstet wird. Wir haben in dieser 
Prograramsammlung vielmehr den Versuch unternommen, aufzuzeigen, 
wie man auch etwas sinnvolles mit einem Homecomputer machen oder 
aber ihn ein klein wenig genauer kennenleren kann. 

Jedoch soll es auch nicht an Spielerei mangeln. Zu diesem Zweck 
haben wir ein sehr ausführiches Knobel- oder Yahtzee-Programm in 
die Prograramsammlung aufgenommen. 

Hier werden die Fähigkeiten des CPC-BASIC in die Tat umgesetzt; 
so haben wir es gleich mit vier verschiedenen Bildschirmfenstern 
zu tun, so daß eine leichte Editierung der Eingaben direkt mit 
den Pfeiltasten auf dem Bildschirm sichtbar vorgenommen werden 
kann. 

Die Regeln dieses Würfelspiels sind hoffentlich bekannt (jeder 
muß mit 5 Würfeln versuchen, die 12 vorgegebenen Bedingungen zu 
erfüllen), sonst schauen Sie bitte mal in einem Spielebuch nach 
oder knobeln sich die Gebrauchsanweisung selbst durch oftmaliges 
Spielen zusammen. Hier nur soviel: Sie sind 12 mal an der Reihe 
und müssen mit jeweils 3 Würfen versuchen, nach der vorgegebenen 
Punktezählung am Ende besonders gut auszusehen, d.h. möglichst 
viele PunK^ zu erzielen. 

Der CPC würfelt nicht nur für Sie, er ordnet die Würfel auch in 
aufsteigender Reihenfolge. Mit den Cursor- und der COPY-Taste 
suchen Sie sich die Wüfel heraus, die ein weiteres mal dem 
Gesetz des Zufalls gehorchen sollen. Ist dreimal gewürfelt wor¬ 
den, suchen Sie sich mit Hilfe der Cursor- und der (ENTER)-Taste 
die Zeile in der Tabelle heraus, in die ihr hoffentlich gutes 
Ergebnis schließlich landen soll (viele 6 er - Eintrag in das 
Feld '6 er 1 ...). Jedes Mal wird zudem die erreichte Gesamt¬ 
punktzahl angezeigt. Viel Spaß! 
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10 REM Knobeln 

20 REM CPC Basic Programme 

30 REM Copyright 1984 DATA BECKER St 

Rainer Lueers 

40 INK 0,1=INK 1,24:INK 2,24 
50 REM Vorbedingungen fuer 

Programmablauf sicherstel1en 
60 MODE 1 

70 INPUT "Anzahl der Spieler (1 bis 4) " 

;Spieler 

80 IF spieler<1 OR spieler>4 THEN GOSUB 
2350:GOTO 60 

90 DIM spiel (spieler,12),spiel 1(spieler, 
12 ) 

100 FOR n=l TO spieler 

110 PRINT:PRINT "Spieler";n;":"; 

120 INPUT spieler«(n) 

130 IF LEN(spieler«(n))>3 THEN spieler«( 
n)=LEFT«(spieler«(n),3) 

140 IF LEN(spiel er«(n))=2 THEN spieler«< 
n)=spieler«(n)+" " 

150 IF LEN(spieler«(n)>=1 THEN spieler«( 
n)=spieler«(n)+" " 

160 IF LEN(spieler«(n))=0 THEN GOSUB 235 

0: RUN 

170 NEXT n 

180 MODE 1 

190 REM Fenster fuer Wuerfeldarstel1ung 
200 WINDOW #1,8,32,1,6 
210 REM Fenster fuer Ergebnistabelle 
220 WINDOW #2,2,40,7,22 

230 REM Fenster fuer Informationsbalken 
240 WINDOW #3,1,40,24,24 
250 REM Fenster fuer Auswahl zur 
Tabelle 

260 WINDOW #4,1,1,9,21 

270 REM Festlegen von Untergrund— und 
Schriftfarbe in den 
verschiedenen Fenstern 
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280 PAPER #4,2:PEN #4,0:CLS 44:PAPER #3, 
2:PEN #3,0:CLS #4:CLS #3:PAPER # 1 , 2 sPEN 
#1,0:CLS #1:PAPER #2,0s PEN #2,1:CLS #2:L 
OCATE #4,1,13sPRINT #4,CHR*<143); 

290 REM Bildschirmau-fbau der Tabelle 


300 PRINT#2,"Spielername -> M ;sFOR n= 
1 TO spielersPRINT#2,Spieler*Cn) 5 " M ;:N 

EXT n:PRINT#2sPRINT#2sPRINT#2,”1 er - 

-»SPRINT #2, “2 er- M sPRINT#2 


,»3 er-»sPRINT#2, "4 er- 

-»SPRINT #2, "5 er-" s PRINT#2, "6 

er-” 

310 PRINT#2,"3 er Pasch -»sPRINT#2,“4 

er Pasch -»:PRINT#2,"Yahtzee -":P 

RINT #2,"kleine Strasse"sPRINT # 2 ,"gross 

e Strasse"SPRINT #2,"Full House -“sPRI 

NT # 2 ,STRING*<36,"=")SPRINT #2,"Punkte - 
__■■ 

320 REM Einlesen der Wuerfeldarstellung 
aus DATA—Zeilen 

330 RESTOREsFOR n=l TO 6 : FOR m=l TO 3 

340 READ a*(n,m):NEXT m,n 

350 REM Beginn des HauptProgramms: 

Ei n Spi el mi t zwoel -f Runden 
360 FOR runde=l TO 12 
370 FOR runde1=1 TO Spieler 
380 CLS #3 

390 LOCATE #3,8,1:PRINT #3,spieler$(rund 
el); 1 ' ist dran- Runde"; runde; 

400 REM Fuen-f Zu-f al 1 szahl en zwischen 
eins und sechs erzeugen 
410 FOR n=l TO 5 
420 RANDOMIZE TIME 
430 a=INT(10*(RND<TIME))) 

440 IF a<1 OR a >6 THEN GOTO 420 
450 zahl<n)=a 

460 REM Darstellung des entsprechenden 
Wuer-f el aussehens 
470 FOR m=2 TO 4 
480 LOCATE #l,n*5-3,m 
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490 PRINT #l,a$(a,m-l)5 
500 NEXT msNEXT n 
510 REM Einsprung in 

Wuerfelsortierroutine 
520 GOSUB 950 

530 REM Jeder Spieler hat drei 

Durchgaenge in einer Runde 
540 FOR zaehler=l TG 2 

550 REM Einsprung in Aenderungsroutine 

560 GOSUB 820 

570 CLS #1 

580 FOR n=l TO 5 

590 REM Fuen-f Zu-Fal 1 szahlen zwischen 
eins und sechs erzeugen 
600 IF wa(n)=l THEN RANDOMIZE TIME:a=INT 
(10*(RND(TIME))):IF a<1 OR a>6 THEN GOTO 
600 ELSE zahlCn)=a ELSE a=zahl(n>:GOTO 
620 

610 REM Darstellung des 
entsprechenden 
Wuerfelaussehens 
620 wa(n)=0 
630 FOR m=2 TO 4 
640 LOCATE #l,n*5-3 ? m 
650 PRINT #1,a$(a,m-l); 

660 NEXT m 
670 NEXT n 

680 REM Einsprung in 

Wuerfelsortierroutine 
690 GOSUB 950 

700 NEXT zaehler:zaehler=0 
710 REM Was soll mit dem erzielten 
Wurf gemacht werden? 

720 GOSUB 1420 

730 NEXT rundel,runde 

740 REM Spielende und Frage: 

Nochmal? 

750 a*=INKEY* 

760 IF a*= I,M THEN GOTO 750 
770 CLS 
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780 INPUT "Nochmal ( /N) M ; a$ 

790 a*=UPPER*(a*> 

800 IF LEFT*(a$,1)="N M THEN END ELSE RUN 

810 REM Aenderungsroutine 

820 LOCATE #1,3,5:PRINT #1,CHR$(244); 

830 a*=INKEY* 

840 IF a$— 1111 THEN GOTO 830 
850 REM Pfeiltaste nach 'links 31 
gedrueckt 

860 IF a*=CHR*(242) AND POS<#l)>4 THEN L 
OCATE #1,POS(#1)-1,5:PRINT #1," ";:LOCAT 
E #1,POS(#1)-6,5:PRINT #1,CHR*(244);:GOT 
O 830 

870 REM Pfeiltaste nach 'rechts' 
gedrueckt 

880 IF a*=CHR*(243) AND POS (#1X24 THEN 
LOCATE #1,POS(#1)-1,5:PRINT #1," ";:LOCA 
TE #1,POS(#1)+4,5:PRINT #1,CHR*(244);:GO 
TO 830 

890 REM COPY-Taste gedrueckt 

(Wert = umgekehrt der Anzeige) 
900 IF a*<>CHR*(224) THEN GOTO 920 ELSE 
IF wa((POS(#1)+1)/5) =1 THEN wa((POS(#l)/ 
+1)/5)=0:PEN #1,2:LOCATE #1,POS(#1)-1,1: 
PRINT #1," ";:PEN #1,0:LOCATE #l,POS(#l) 
? 5 ELSE wa((POS(#1>+1)/5)=1:LOCATE #l,PO 
S(#l>-1,1 SPRINT #1,CHR*(245);:LOCATE #1, 
POS(#l),5 

910 REM <ENTER>—Taste gedrueckt 
920 IF a*=CHR*(13) THEN RETURN 
930 GOTO 830 

940 REM Wurfsortierroutinen 

950 FÜR nn=l TO 5 

960 z2(nn)=7 

970 NEXT nn 

980 FOR nn=l TO 5 

990 FOR mm=l TO 5 

1000 IF zahl(mm)<=z2(nn) THEN z2(nn)=zah 
1(mm):z1(nn)=wa(mm):merker=mm 
1010 NEXT mm 



1020 zahl(merker)=7 
1030 NEXT nn 
1040 FOR nn=l Tü 5 
1050 zahl(nn)=z2(nn) 

1060 wa(nn)=z1tnn) 

1070 NEXT nn 
1080 CLS #1 
1090 FOR nn=l Tü 5 
1100 FOR mm=2 TO 4 

1110 LOCATE #l s nn*5-3,mm:PRINT #l,a*(zah 
1(nn),mm-1); 

1120 NEXT mm 
1130 NEXT nn 

1140 LOCATE #1 5 1.6:PRINT #1,STRING*(8,CH 
R*(143) ) ; 11 Wurf "; zaehler+1;STRING*(9,CHR 
«(143)); 

1150 RETURN 

1160 REM Aussehen der Wuerfel mit 

der entsprechenden Augenzahl 
(eins bis sechs) in 
DATA-Zei1en 


1170 

REM Wuerfelzahl 

l 

1180 

DATA 

II II 


1190 

DATA 

.. Q .. 


1200 

DATA 

II II 


1210 

REM Wuerfelzahl 

2 

1220 

DATA 

ii gii 


1230 

DATA 

II II 


1240 

DATA 

"0 


1250 

REM Wuerfelzahl 

3 

1260 

DATA 

I. Ql. 


1270 

DATA 

I. Q .. 


1280 

DATA 

"Q 


1290 

REM Wuerfeizahl 

4 

1300 

DATA 

6 

o 


1310 

DATA 

ii ii 


1320 

DATA 

o 

o 


1330 

REM Wuerfelzahl 

5 

1340 

DATA 

6 

□ 


1350 

DATA 

i. 0 
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1360 DATA “O O" 

1370 REM Wuerfeizahl 6 
1380 DATA "OOO" 

1390 DATA " 

1400 DATA "OOO" 

1410 REM Eingaberoutine fuer 
Tabellenwerte 
1420 CLS #4 
1430 LOCATE #4,1,13 
1440 PRINT #4,CHR*(143>; 

1450 LOCATE #4,1,1 
1460 PRINT #4,CHR*<243>; 

1470 a*= INKEY* 

1480 IF a#=“" THEN GOTO 1470 
1490 REM Pfeiltaste nach 'unten’ 
gedrueckt 

1500 IF a*=CHR*(241) AND VPOS(#4)<13 THE 
N LOCATE #4,1,VPOS < #4)—1 ELSE GOTO 1550 
1510 PRINT #4," 

1520 LOCATE #4,1,VPOS(#4) 

1530 PRINT #4,CHR*<243); 

1540 REM Pfeiltaste nach 'oben’ 
gedrueckt 

1550 IF a*=CHR*<240> AND VPOS(#4)>2 THEN 
LOCATE #4,1,VPOS(#4)-1 ELSE GOTO 1600 
1560 PRINT #4," 

1570 LOCATE #4,1,VPOS(#4)-2 
1580 PRINT #4,CHR«(243>; 

1590 REM <ENTER>—Taste gedrueckt. 

Wenn Wert noch nicht 
eingtragen, so wird er vermerkt 
und die Punktzahl gemaess 
Unterprogramm errechnet 
1600 IF a$=CHR*<13> THEN IF spiell(runde 
1,VPOS(#4)—1)01 THEN spiel 1 (runde 1,VPOS 
(#4)-1)=1:GOSUB 1820 ELSE GOTO 1470 ELSE 
GOTO 1470 

1610 spiel(rundel,runde)=ergebnis 
1620 CLS #3 
1630 LOCATE #3,9,1 
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1640 PRINT #3,"Spieler H ;5pieler$(rundel 
) ; " : " ; ergebni s; "Punkte" ; 

1650 REM Eintragung des Ergebnisses in 
die Tabelle (an der 
entsprechenden Stelle) 

1660 LOCATE #2,14+rundel*5,VPOS(#4)+1 
1670 PRINT #2,ergebnis; 

1680 LOCATE #2,14+rundel*5,16 
1690 FÜR n=l TO 12 

1700 endergebnis(rundel)=endergebnis(run 
deD+spiel (rundel,n) 

1710 NEXT n 

1720 PRINT #2,endergebnis(rundel); 

1730 endergebnis(rundel)=0 
1740 a$=INKEY* 

1750 IF a$="" THEN GOTO 1740 

1760 CLS #1 

1770 CLS #4 

1780 LOCATE #4,1,13 

1790 PRINT #4,CHR*(143); 

1800 CLS #3 
1810 RETURN 
1820 ergebnis=0 

1830 REM Unterprogramme zur Errechnung 
der erzielten Punktzahl 
1840 ON VPOS(#4)-1 GOSUB 1870,1920,1970, 
2020,2070,2120,2170,2200,2230,2260,2300, 
2330 

1850 RETURN 

1860 REM 1 er Wurf gezaehlt 

(Addition aller 1 er) 

1870 FOR n=l TO 5 

1880 IF zahl(n)=l THEN ergebnis=ergebnis 
+ 1 

1890 NEXT n 
1900 RETURN 

1910 REM 2 er Wurf gezaehlt 

(Addition aller 2 er) 

1920 FOR n=l TO 5 
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1930 IF zahl(n)=2 THEN ergebnis=ergebnis 
+2 

1940 NEXT n 
1950 RETURN 

1960 REM 3 er Wurf gezaehlt 

(Addition aller 3 er) 

1970 FOR n=l TO 5 

19B0 IF zahl(n)=3 THEN ergebnis=ergebnis 
+3 

1990 NEXT n 
2000 RETURN 

2010 REM 4 er Wurf gezaehlt 

(Addition aller 4 er) 

2020 FOR n=l TO 5 

2030 IF zahl<n)=4 THEN ergebnis=ergebnis 
+4 

2040 NEXT n 
2050 RETURN 

2060 REM 5 er Wurf gezaehlt 

(Addition aller 5 er) 

2070 FOR n=l TO 5 

20B0 IF zahl(n)=5 THEN ergebnis=ergebnis 
+5 

2090 NEXT n 
2100 RETURN 

2110 REM 6 er Wurf gezaehlt 

(Addition aller 6 er) 

2120 FOR n=l TO 5 

2130 IF zahl(n)=6 THEN ergebnis=ergebnis 
+6 

2140 NEXT n 
2150 RETURN 

2160 REM 3 er Pasch-Pruefung; 

3 er Pasch = alle Wuerfeläugen 
2170 IF (zahl(l)-zahl(2) AND zahl(2)=zah 
1(3)) OR (zahl(2)=zahl(3) AND zahl(3)=za 
hl(4)) OR (zahl(3)=zahl(4) AND zahl(4)=z 
ahl(5)) THEN FOR n=l TO 5sergebnis=ergeb 
nis+zahl(n)sNEXT n 
2180 RETURN 

2190 REM 4 er Pasch-Pruef ung; 
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2200 IF (zahl(l)=zahl<2> AND zahl(2)=zah 
1(3) AND zahl(3)=zahl(4)> GR (zahl(2)=za 
hl(3) AND zahl(3>=zahl(4) AND zahl(4)=za 
hl(5)) THEN FDR n=i TO 5:ergebnis=ergebn 
i 5 +zahl(n)sNEXT n 
2210 RETURN 

2220 REM 5 er Pasch = Yahtzee-Pruefung 
Yahtzee = 50 Punkte 

2230 IF zahl(l)=zahl(2) AND zahl(2>=zahl 
(3) AND zahl(3)=zahl(4) AND zahl(4)=zahl 
(5) THEN ergebnis=50 
2240 RETURN 

2250 REM kleine Strasse-Prue-fung; 

kleine Strasse = 30 Punkte 
2260 IF (zahl(l)=zahl(2)-l AND zahl(2)=z 
ah1(3)—1) OR (zahl(2)=zahl(3)-l AND zahl 
(3)=zahl(4)-l) OR (zahl(3)=zahl(4)-1 AND 
zahl(4)=zahl(5)-l) OR (zahl(1)=zahl(3)- 
1 AND zahl(2)=zahl(4)—1) OR (zahl(l)=zah 
1(4)—1 AND zahl(2)=zahl<5)-l) THEN ergeb 
nis=30 

2270 IF zahl(2)=zahl(4)-l AND zahl(4)=za 
hl(5)—1 THEN ergebnis=30 
2280 RETURN 

2290 REM grosse Strasse—Pr ue-f ung; 

grosse Strasse = 40 Punkte 
2300 IF (zahl(l)=zahl(2)-l AND zahl(2)=z 
ahl(3)—1 AND zahl(3>=zahl(4)-1) OR (zahl 
(2)=zahl(3)—1 AND zahl(3)=zahl(4)-1 AND 
zahl(4)=zahl(5>-i) OR (zahl(l)=zahl(3>-l 
AND zahl(3)=zahl(4)—1 AND zahl(4)=zahl( 
5)—1) THEN ergebnis=40 
2310 RETURN 

2320 REM Full House-Prue-fung; 

Full House = 25 Punkte 
2330 IF (zahl(l)=zahl(2) AND zahl(3)=zah 
1(4) AND zahl(4)=zahl(5)) OR (zahl(l)=za 
hl(2) AND zahl(2)=zahl(3) AND zahl(4)=za 
hl(5)) THEN ergebnis=25 
2340 RETURN 

2350 a$=INKEY*:IF a$=" H THEN GOTO 2350 E 
LSE PRINT ASC(a*):GOTO 2350 
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Codeknacker 


Dieses Spiel gibt es in mannigfaltigen Versionen z.B. unter den 
Namen 'Superhirn 1 und 'Mastermind*. 

Wir haben das Computerprogramm jedoch umbenannt in 1 Codeknak- 
ker 1 | weil es sich von den Vorbildern doch in gewisser Weise 
stark unterscheidet. 

Zu Beginn können Sie wählen, aus wieviel Farben=Zahlen die zu 
erratende Folge zusammengesetzt sein soll. Es stehen bis zu acht 
Farben=Zahlen zur Verfügung. 

Anschließend erfolgt eine zweite Wahl: Aus wieviel Teilen soll 
die Folge bestehen? Es ist zwar möglich mehr Farben als Teile zu 
bestimmen, allerdings ist das umgekehrte Verhältnis nicht vorge¬ 
sehen und wird somit ignoriert. Dies hat folgenden Crundi Der 
Spieler soll zu Beginn wissen, mit welcher Planung er es zu tun 
hat; so ist es klar, daß nach der Auswahl von jeweils acht 
Farben und acht Stellen auch wahrlich acht Farben in der Folge 
auftreten; Doppel oder gar Dreier sind somit ausgeschlossen! 

Aus diesem Grund wird während des Spielablaufs ähnlich weiter¬ 
verfahren: es nützt nicht, durch Vorgabe z.B. der Zahlenkombina¬ 
tion '11112222* herausfinden zu wollen, ob die '1' bzw. '2' 
gleich mehrfach und an den entsprechenden Stellen in der Folge 
vorkommt. 

Es wird sowohl auf dem Bildschirm angezeigt, wie viele Farben 
richtig aber auch wie viele gar genau an der richtigen Stelle 
positioniert wurden. Für den 'Codeknacker'-Anfänger ein recht 
schwieriges Unterfangen. Aber Übung macht den Meister. Um den 
Überblick nicht zu verlieren, wird der Bildschirm nach jeder 
Eingabe hochgescrollt (die letzten vier bis fünf Eintragungen 
bleiben oben sichtbar). Zudem werden alle Ergebnisse und Zahl¬ 
eingaben festgehalten. Man kann die gesamte Eingabefolge durch 
Drücken der (ENTER)-Taste wieder auf den Bildschirm bringen. Nun 
aber genug der Vorstellung. Viel Spaß! 
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Eingabe (Dez. , Hex o. Bin.) ? d255 
dezimal b i naer oderdua 1 ^ hexadezina 1 
255 00000000 11111111 00FF 

Eingabe (Dez.,Hex o. Bin.) ? hffff 
dezimal binaer oder dual hexadezimal 
65535 11111111 11111111 FFFF~ 

Eingabe (DezHex o. Bin.) ? blll 
dezimal ^binaer oder dual hexadezimal 
7 00000000 00000111 0007 

Eingabe (Dez. ,Hex o. Bi n . ) ? ■ 
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Umrechnung DEZ^_ 5erSystem 


Ihre Eingabe 

Anzahl: 46 
Anzahl: 9 

Anzahl: 1 

1410 


(DEZ.) ? 230 

MOD: 0 
MOD : 1 

MOD : 4 


Meiches Zahlsystem (2 bis 9) ? ■ 
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10 REM Codeknacker 

20 REM CPC464 Basic Programme 

30 REM Copyright 1984 DATA BECKER & 

Rainer Lueers 

40 REM Dimensionierung und Abfrage 
der Vorbedingungen 

50 DIM merkt(100) 9 schwarz(100) 9 weiss(100 
) 

60 PAPER 0:PEN 1:MODE 1 

70 INPUT "Anzahl der Farben (1 bis 8) "; 

ft 

80 IF VAL(ft)<1 OR VAL(ft)>8 THEN GOSUB 
460:GOTO 70 

90 INPUT "Anzahl der Stellen (1 bis 8) " 

;f lt 

100 IF VAL(f1t)<1 OR VAL(ft)>8 THEN GOSU 
B 460:GOTO 90 

110 IF VAL(fit)>VAL(ft) THEN GOSUB 460:G 
OTO 90 

120 REM Auswahl der Zahlen durch die 
RND=Zufal1sfunktion 
130 FOR n=l TO VAL(fit) 

140 a=INT(10*RND(TIME)) 

150 IF a<1 OR a>VAL(ft) THEN GOTO 140 
160 REM Alle ausgewaehlten Zahlen 

sollen unterschiedlich sein 
170 FOR m=l TO n-1 
180 a <m> =VAL(MIDt(at,m,1)) 

190 NEXT m 

200 FOR m=l TO n-1 

210 IF a=a(m) THEN GOTO 140 ELSE NEXT m 
220 at=at+RIGHTt(STRt(a),1) 

230 NEXT n 

240 FOR n=l TO VAL(fit) 

250 a(n)=VAL(MIDt(at,n,1)) 

260 NEXT n 
270 CLS 

280 REM Eingaberoutine 
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290 PRINT "Eine Zahl mit";VAL(f1*);"Ziff 
ern INPUT f3* 

300 REM Auf1isung aller Zahlen, die 
bisher eingegeben wurden 
310 IF f3*= ,,n THEN CLSsFüR zl = l TO zsPRI 
NT "Zug"z1;TAB(8> ;merk$(zl);" OK:";sc 
hwarz(zl);" not OK:";weiss(z1):NEXT zls 
PRINT:GOTO 290 ELSE IF LEN(f3*><>VAL(f1 
*> THEN GOSUB 460:GOTO 290 
320 FOR n=l TO VAL(fl*) 

330 b(n)=VAL(MID*(f3*,n,1)) 

340 IF a(n)=b(n) THEN schwarz=schwarz+l: 
c (n> =-l 
350 NEXT n 

360 FOR m=l TO VAL(fl*> 

370 FOR n=l TO VAL(fl*) 

3S0 IF a(n)=b(m> AND n<>m THEN weiss=wei 
5B+1 :GOTO 410 
390 NEXT n 

400 REM Ausgaberoutine und 

anschliessende Ueberpruefung 
auf Richtigkeit 

410 NEXT m:PRINT "Farben an der falschen 
Stel1e :";weiss 

420 z=z+l:merk*(z)=f3*:weiss(z)=weiss:sc 
hwarz(z)=schwarz:wei 55=0 

430 PRINT "Farben an der richtigen Stell 
e:";schwarz 

440 IF schwarz=VAL(fl*) THEN PRINT:PAPER 
1:PEN 0:PRINT ” Genau richtig in";z;"Zu 
egen";:PAPER 0:PEN 1:PRINT:PRINT:INPUT " 
Nochmal (J/ ) ";f*:IF UPPER*(LEFT*(f*,1) 

)="J n THEN RUN ELSE END ELSE schwarz=0:G 
OTO 290 
450 GOTO 290 

460 PRINTsPRINT "Falsche EingabePRINT 
:RETURN 
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Reaktion 


Um Leute zu überraschen, vielleicht auch, um Leute, die bisher 
der ganzen Computerei eher negativ gegenüberstehen, sei dieses 
Programm zur Vorführung dringendst empfohlen. 

Der ganze Inhalt, was die Programmierung an und für sich be¬ 
trifft: Es muß eine Taste so schnell wie nur irgendwie möglich 
gedrückt werden, wenn der Computer dazu auffordert. Im Nachhi¬ 
nein erfolgt eine Wertung und es wird ein weiteres Mal zu einem 
neuen Spiel mit bis zu vier Teilnehmern aufgefordert. 

Der Clou dieses Programms liegt vielmehr darin, wie mit dem 
nichts ahnenden Computerbediener umgegangen wird. Wie bereits an 
anderer Stelle in diesem Buch gesagt: Die Computer sind alle 
sehr dumm. Sie werden erst durch die Programmierung von uns 
Menschen schlau gemacht. Gerade dies wird dem laienhaften Benut¬ 
zer beim Ablauf dieses Programms klar gemacht: 

Erfolgt zu Beginn keine Namenseingabe, wird der CPC bzw. dieses 
Programm langsam aber sicher richtig knartschig ... bis er gar 
droht, man mache den Computer durch Fehler kapputt! Hat jedoch 
alles seine Ordnung, antwortet der CPC artig mit 'Danke 1 . 

Beim Spielablauf achtet der CPC ordentlich darauf, ob nicht 
vielleicht geschummelt wird. Ist dies der Fall, erfolgt eine 
Ermahnung und eine Zeitstrafe. 

Die gemessene Zeit wird nicht nur bis zum hundertsten Bruchteil 
einer Sekunde genau angezeigt, nein der CPC gibt auch seinen 
Kommentar dazu ('SUPER* ... 'sehr schwach'). 

Programmtechnisch gesehen ein Klacks! Dafür aber vielleicht als 
'Entschuldigung* für den sehr vernünftigen (!) Kauf des CPC für 
all die lieben Mitmenschen gedacht. Vielleicht machen Sie so 
auch noch Computerfreaks aus ihnen, dann ist die Freude und 
Begeisterung halt mindestens doppelt so groß wie zuvor. Noch ein 
Verwendungszweck dieses Programms: Messen Sie mal die Reakti¬ 
onszeiten in verschiedenen Gemütslagen und Zuständen! 
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ff ff ff 2-80 Disassenbler * * * 


fjtel ’ Einfache Addition in Maschinensprache 

Startadresse (in Dez.) 0 
Endadresse (in Dez.) 9 

Datafelder vorhanden (J/ ) 0 


Drucker oder Bildschim (D/B) n b 

Einfache Addition 

43776 2 Bytes ABO 0 

43778 2 Bytes ABO 2 

43780 1 Bytes ABO 4 

43781 3 Bytes ABO 5 

43784 1 Bytes ABO 8 

# ff Ausdruck fertig ff ff 

Nochrwl (J/ ) 

3280 DATA 30,04,06.07,80,32.00.7d 
Ready 


in Maschinensprache 

3E04 LD A 04 

0607 LD B 0" 

80 ADD AE 

32007D LD U'0'3 

C9 RET 
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10 REM Reaktion 

20 REM CPC464 Basic Programme 

30 REM Copyright 1984 DATA BECKER Sc 

Rainer Lueers 

40 REM Vorbedingungen treffen 
50 INK 0,0s INK 1,24s PEN lsPAPER 0s MODE 1 
60 INPUT "Wie viele Teilnehmer <1 bis 4) 
";f* 

70 IF VAL(ft)<l OR VAL(ft)>4 THEN GOTO 6 
0 

80 FOR n=l TO VAL(f$) 

90 PRINTsPRINT "Ihr Name, bitte, Spieler 
"5 n;sINPUT fl*<n> 

100 REM Reaktion auf falsche Eingabe 
110 IF fl«(n)="" AND merker=0 THEN PRINT 
sPRINT "Seien Sie doch nicht feige! 

Jede Sache hat auch einen Namen. 
Soweit ich dummer Computer weiss, gilt 
das auch fuer Menschen und Tier e!"sm 

erker=ls GOTO 90 

120 IF fl4(n>="" AND merker=l THEN PRINT 
sPRINT "Diese Menschen, diese Menschen! 

Gehen wir also mal behutsam ans 
Werk... vielleicht klappt es so! Ich hei 
55e CPC464. Nein, ich bin nicht vom 

Mars... Mein Vorname ist Schneider (komi 
sch, " 

130 IF fl*(n)="" AND merker=l THEN PRINT 
"wie?). Du darfst mich ruhig 'Schneider 
' nennen ... aber nur wenn Du mir sagst, 
wie Du mit Vornamen heisst. Also bitte 
!":merker=2s GOTO 90 

140 IF fl*(n)=" M AND merker=2 THEN PRINT 
sPRINT "Noch eine Fehleingabe und der Co 
mputer ist kapputt ... ich darf doch bi 

tten ";:merker=3:GOTO 90 

150 IF fl$<n>="" AND merker=3 THEN FOR n 
=1 TO 10000:PRINT CHR*<PEEK<n));:NEXT 
160 merker=0 
170 NEXT n 
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180 MODE 0:LOCATE S,12sPRINT "Danke" 

190 FOR n=l TO 2000:NEXT n 
200 MODE IsFOR n=l TO VAL(-fS) 

210 PRINT Fl*<n>;"!!!!":PRINTsPRINT:PRIN 
T "Du bist dran!"sPRINT "Druecke eine me 
iner Tasten, wenn Du bemerkt hast, d 

ass sich die BildschirmTarbe 

geaendert hat." 

220 REM Berechnung der Zeitspanne 

230 FOR m=l TO 2000:NEXT m:a=1000»RNDU> 

:FOR m=l TO a:a$=INKEYS:IF aS="" THEN NE 
XT m:GOSUB 2B0 ELSE MODE 0:PRINT "Schümm 
ler!M!"SPRINT "Du hast 5 Sekunde":PRINT 
"gebraucht." : f<n>=5:FOR m=l TO 2000:NEXT 
m:MODE 1 

240 REM Endergebnis ausgeben 
250 NEXT n:CLS:FOR n=l TO VAL(FS) SPRINT 
+lS(n);" hat":PRI^T f(n);“Sekunden gebra 
ucht!"SPRINT:NEXT ns PRINT:PRINT:INPUT "N 
och ein Spiel < /N) ”;zS:IF LEFTS (UPPERS 
(zf),1)="N" THEN END 

260 PRINT:INPUT "Mit den gleichen Spiele 
rn <J/ ) ";z$:IF LEFTS(UPPER*<zS>,1)="J" 

THEN GOTO 200 ELSE RUN 
270 REM Unterprogramm zur Zeitkontrolle 
280 MODE 0:PAPER 1:CLS:b=TIME 
290 aS=INKEYS:IF aS=“ " THEN GOTO 290 
300 c=TIME:PAPER 0:MODE 1:f(n)=(c-b>/250 
SPRINT T IS (n) SPRINT "Du hast" ; -f (n) ; “Seku 
nden gebraucht!" 

310 PRINT 

320 REM Wertung 

330 IF f(n><0.005 THEN PRINT "S U P E R" 
sGOTO 370 

340 IF -f (n) <0. 1 THEN PRINT “Ganz gut“:GO 
TO 370 

350 IF -f (n) <0. 5 THEN PRINT " schwachGOT 
0 370 

360 PRINT "Sehr, sehr schwach!" 

370 FOR m=l TO 2000:NEXT msCLS:RETURN 
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Zahlsysteraumrechner 


Der CPC kann nicht nur Zahlen in dem uns vertrauten Dezimalsy¬ 
stem abbilden, er hat auch spezielle Befehle zum Umrechnen in 
andere Zahlsysteme so z.B. bedeutet '&H' einer Zahl vorange¬ 
stellt: Hexadezimalzahl; '&X' bedeutet Binär- bzw. Dualzahl. 

Auf diese Art und Weise können wir 'PRINT &HFF' eingeben und 
bekommen als Ergebnis dieser Hexadezimalzahl umgerechnet in eine 
Dezimalzahl '255' auf dem Bildschirm ausgegeben. 

Geben wir 'PRINT &X111' ein, so erhalten wir gar als Ergebnis 
dieser Binärzahl uragerechnet in eine Dezimalzahl: '7'. 

Schwierig wird es schon, wenn man direkt von einer Hexadezimal¬ 
zahl in eine Binärzahl umrechnen will. Unmöglich wird es gar, 
wenn wir mit einem anderen geläufigen Zahlsystem außer hexadezi¬ 
mal, dezimal oder binär (z.B. oktal) arbeiten wollen. 

Um die Zahlsysteme besser kennenzulernen ist nun dieses Programm 
entstanden. Sie können durch Voranstellung des entsprechenden 
Buchstabens ('H 1 für Hexadezimal, 'B' für Binaer, 'D' für Dezi¬ 
mal) jede eingegebene Zahl in jedem dieser drei Zahlsysteme 
darstellen lassen. 

Außerdem können Sie durch Drücken der (ENTER)-Taste Ihre Dezi¬ 
maleingaben in ein Zahlsystem zwischen 2 und 9 umrechnen. Hier¬ 
bei geschieht etwas interessantes und gleichzeitig lehrreiches: 
Die Zahl in dem gewünschte Zahlsystem wird vor Ihren Augen 
ausgerechnet - Schritt für Schritt. 

Wie geht das vor sich? Wir wählen ein Beispiel ... rechnen wir 
im Fünfer-Zahlensystem. Drücken Sie also (ENTER) auf die Frage 
nach *Dez.,Hex. o. Bin.'. Auf die nächste Frage antworten Sie 
mit 5 und geben nun z.B. die Zahl '230* ein. Die ausgerechnete 
Zahl im Fünfersystem ist die '1410'. 
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Nun zur Erklärung des Vorgangs: Im Fünfer-Zahlsystem haben wi 
die Ziffern '0, 1, 2, 3 und 4'. Der CPC teilt unsere eingegeben 
Zahl '230' durch 5. Ergebnis: '46' Rest '0'. Anschließend wir. 
die '46' geteilt: '9' Rest '1'. Nun wird die '9' geteilt: ’1 
Rest '4' und so bleibt schließlich ein Rest '4' übrig. Schreibe 
wir uns die Restwerte noch einmal auf: 

0 2. 1 3. 4. Beim letzten Wert nehmen wir nich 

nur den Rest '4', sondern auch die Anzahl - ’l'. 

So erhalten wir für Dezimal '230' die Zahl im FUnfersystem 
'1410'. Probe gefällig? Hierzu bilden wir Fünfer-Potenzen vo 
rechts nach links: 

1) 0 * 5f0 =0 2) 1 * 5tl “5 3) 4 * 5f2 - 100 
4) 1 * 3T3 = 125 -) 0 + 5 + 100 + 125 = 230 ! 

Nur der Vollständigkeit halber erwähnt: Auch ohne das Program 
1 Zahlsystemumrechner 1 kann man mit dem CPC-Basic immerhin Dezi 
mal-Hexadezimal und Dezimal-Binär urarechnen und zwar mit de 
Befehlen: 'HEX$(' und , BIN$('. 
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10 REM Zahlsystemumrechner 

20 REM CPC464 Basic Programme 

30 REM Copyright 19S4 DATA BECKER S< 

Rainer Lueers 

40 INK 0,1: INK 1,24: INK 2, 1,24: e-f fekt=2: 
normal=1 

50 DN ERROR GOTO 410 
60 MODE 1 

70 REM Auswahl zwischen den Zahl Systemen 
80 INPUT "Eingabe (Dez.,Hex o. Bin.) ";a 
*:IF VAL(at)>65535 THEN GOTO 80 ELSE IF 
at="" THEN GOTO 160 ELSE b*=LEFT*(a*,1): 
b*=UPPER*(b*) : IF b4="H" THEN GOSUB 310 E 
LSE IF b*="B" THEN GOSUB 360 ELSE IF b*= 
"D" THEN a*=RIGHT*(a*,LEN(a*)-l) 

90 REM Berechnung der Dezimal-, Binaer- 
und Hexadezimalzahlen fuer den 
Bi1dschirmausdruck 

100 PRINT:PRINT "dezimal binaer oder du 
al hexadezimal" 

110 PRINT "- 


120 FRINT a*;TAB <9);" "; 

130 b*=BIN*(VAL(at),16):FRINT LEFT*(b*,8 
);" ";RIGHT*(b*,8>;" "; 

140 PRINT TAB(32);HEX*(VAL(a*),4) 

150 PRINT:FRINT:GOTO 80 
160 MODE 1 

170 REM Auswahl zwischen den 
Zahl Systemen 2 bis 9 
180 INPUT "Welches Zahlsystem (2 bis 9) 

" ; a 

190 IF a=0 THEN RUN ELSE IF a<2 OR a>9 T 
HEN GOSUB 440:GOTO 160 

200 CLS:PRINT "Umrechnung DEZ. -“;a;"ers 
ystem" : PRINT "========================== 

==":PRINT 

210 REM Berechnung der Zahlen im 

qewa.ehlten Zahl System (2 bis 9) 
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220 INPUT "Ihre Eingabe (DEZ.) ";b:IF b> 
32767 THEN GQSUB 440 s GOTO i60 ELSE FRINT 
230 c=böa 

240 FRINT "Anzahl:";c; 

250 d=h MOD a 

260 PRINT TAB<15);"MOD:";d 
270 a*=RIGHT*(STR*(d),1 >+a$ 

2B0 IF c<a THEN a*=STR*(c)+ai:PRINT:PRIN 
T a$:at= M ":FRINT:PRINT:PRINTs GOTO 180 
290 b=c:GOTO 230 

300 REM Eingabe der Hexadezimalzahl 
ueber prue-Fen und umrechnen 
310 IF LEN<a*)>5 THEN RETURN 
320 b*= ""+MID$(a*,2, LEN () -1) 

330 IF VAL(b$)<0 THEN a*=STR$(VAL (b$ )+65 
536) ELSE a*=STR*(VAL<b$>) 

340 RETURN 

350 REM Eingabe der Binaerzahl 

ueberpruefen und umrechnen 
360 IF LEN(a*)>17 THEN RETURN 
370 bU^"?^ "+MID$(a$«2,LEN < a$> ~1) 

330 IF VAL(b$)<0 THEN a*=STR*(VAL(b*>+65 
536) ELSE a*=STR$<VAL(b*)) 

390 RETURN 

400 REM Errorbehandlungsrautine 
410 RESUME 420 
420 RUN 
430 END 

440 PEN eT-f ekt: PRINT: PRINT TAB (12) "Fals 
che Eingabe!" 

450 PEN normal:GOSUB 460:RETURN 

460 PRINT:PRINT TAB(7) "<Bitte eine Tast 

e druecken>“ 

470 f*=INKEY$:IF THEN GOTO 470 

4S0 RETURN 
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Disassembler 


In den Programmen 'Speicher 1' bis 'Speicher 5' sowie im Varia- 
blen-Referenzlistenprogramm haben wir uns bereits ein klein 
wenig mit den 'Innereien' unseres CPC beschäftigt. Unter 'Inne¬ 
reien' sei hier verstanden: Wie geht es überhaupt vor sich, daß 
ein unmenschliches Wesen wie der Computer zu denken fähig ist 
(merken Sie sich dazu folgendes: Ein Computer ist immer nur so 
schlau, wie die Menschen, die ihn programmiert haben). 

In den Programmen 'Speicher 1' bis 'Speicher 5' sind wir aber 
noch nicht tief genug in unseren CPC eingedrungen. Wir haben uns 
seinerzeit nämlich nur angeschaut, wie unsere BASXC-Programme 
Zeilennummer für Zeilennummer, Befehl für Befehl, im Speicher 
abgelegt werden, aber nichts über die Verarbeitung zu den Befeh¬ 
len und zu dieser Art der Abspeicherung hin kennengelernt. Dabei 
wurde auch erwähnt, daß der CPC wie jeder andere Computer auch 
auf die Grundststellung zurückgelangt: an oder aus bzw. in 
binärer Form: 0 oder 1. Aus dem Erkennen einer Vielzahl von 
aufeinanderfolgenden 0 en oder 1 en erkennt der Computer dann 
ein Zeichen, manchmal auch einen Befehl. 

Unser BASIC nennt sich eine höhere Programmiersprache: sie ist 
schon mit einer Vielzahl verständlicher Begriffe aufgebaut, so 
daß wir bei der Benutzung dieser Befehle vielmehr eine Vorstel¬ 
lung davon bekommen, was der Computer tun kann, als wenn wir nur 
stur 0 en oder 1 en in den Speicher eingeben würden. 

Der in diesem Programm untersuchte Assemblercode ist eine Stufe 
zwischen BASIC und Maschinensprache* Wir haben hier eine Viel¬ 
zahl von Befehlen zur Verfügung (beim Prozessor Z80A im CPC sind 
es gar mehr als 600 ), die allerdings bei weitem nicht so wir¬ 
kungsvoll arbeiten wie die BASIC-Befehle. Im Speicher benötigen 
diese Befehle teils 1 Byte, teils 2 Bytes, manchmal auch gar 3 
Bytes (1 Byte ■ 1 Speicherplatz). Das Programm 'Disassembler' 
hat sämtliche Z80A-Assemblercodes (man nennt sie auch Mnemoniks) 
gespeichert und untersucht den von uns vorgegebenen Speicherraum 
nach deren Vorkommen. Dabei untersucht es das Vorkommen be¬ 
stimmter Zeichenfolgen (ähnlich wie bei dem 'Speicher'-Programm, 
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wo wir nach der Zeichenfolge 'Laenge* gesucht haben); werden 
diese Zahlenfolgen irgendwo angetroffen, wird der entsprechende 
Assemblercode auf den Bildschirm (oder Drucker) geschrieben. 

Da wir nicht davon ausgehen können, daß Sie Tag für Tag sehr 
viele Maschinenprogramme schreiben, haben wir einen Lerneffekt 
in unser 'Disassembler 1 -Proramm eingebaut: In Zeile 3530 steht 
eine DATA-Anweisung, gefolgt von meheren Hexadezimalzahlen. 
Diese Zahlen sind ein kleines Maschinenprogramm, in dem zwei 
Zahlen zusammengezählt und an einer bestimmten Speicherstelle 
abgelegt werden. Sie können sich die Umwandlung dieser Zahlen in 
ein Assemblerprogramm anschauen, indem Sie nach dem Pro¬ 
grammstart auf alle Fragen ohne weitere Eingabe nur mit (ENTER) 
antworten. 

Sie können nun auch andere Zahlen (in hexadezimaler Form, 
bitte!) in die DATA-Zeile schreiben - oder Sie finden ein län- 
geres Maschinenprogramm für Z80A—Prozessor in einer Computer 
Zeitschrift ... Sie können auch ruhig mehrere DATA-Zeilen mit 
Zahlen anfüllen ... Viel Spaß dabei! 
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10 REM Disassembler 

20 REM CPC464 Basic Programme 

30 REM Copyright 1984 DATA BECKER Sc 

Rainer Lueers 

40 CLEAR 

50 REM Speicherplatz ab 43776 fuer 

Maschinenroutinen frei halten 
60 MEMORY 43775:GOSUB 3450 
70 DIM i*(255),bl(255):n=0:m=0:sy=l 
80 GOTO 1280 

90 MODE 2:c=0:PRINT TAB(20)"* * * Z-80 

Disassembler * * *" 

100 REM bluensche des Benutzers 
abklaeren 

110 PRINT:INPUT "Titel ";f* 

120 IF LEN (-f$) >80 THEN GOTO 110 
130 PRINT 

140 REM An-fangsadresse der 

abgespeicherten Maschinenroutine 
in DATA—Zei1en 

150 INPUT "Startadresse <in Dez.) ";a:IF 
a<0 OR a>65535 THEN GOTO 130 ELSE IF a= 
0 THEN a=43776 

160 INPUT "Endadresse (in Dez.) ";b 
170 IF b<e OR b>65535 OR b<0 THEN GOTO 1 
60 ELSE IF b=0 THEN b=zaehlerl 
180 PRINT: INPUT "Datafelder vorhanden (J 
/ ) "; v* 

190 v*=LEFT*(UPPER*(v*>,1):IF v*="J" THE 
N GOSUB 2140 

200 PRINT:INPUT "Drucker oder Bildschirm 
(D/B) ";b* 

210 REM Festlegen der Variable ’drubi’, 
die fuer die Ansprache des 
PRINT—Befeh1s zustaendig ist: 

8 —> Drucker, 0 -> Bildschirm 
220 b*=LEFT*(UPPER*(b*),1):IF b*="D" THE 
N drubi=8 ELSE drubi=0 
230 PRINT #drubi 
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240 REM Ueberschrift = Titel, der durch 
die Formel in der Mitte der 
Zeile erscheint 

250 PRINT #drubi ,TAB( (B0-LEN(f*) ) /2-5)f* 
260 PRINT #drubi 

270 REM Beginn des eigentlichen 

Disassemblers. Sukksessives 
Einlesen des angegebenen 
Speicherbereichs und 
Interpretieren der Daten 
in Maschinenbefehle=Mnemoniks 

280 q=a 

290 hl=INT(a/4096)sh2=INT((a-hl*4096)/25 
6 > 

300 11=INT((a-hl*4096-h2*256)/16> 

310 12=a-hl*4096-h2*256-l1*16 
320 IF m< >0 THEN GOTO 340 
330 GOTO 390 

340 IF a>=a(n) AND a<=b(n) THEN GOTO 360 
350 GOTO 390 

360 d=PEEK(a) :GOSUB 3380: f *= n D“ : f lt^'A" : 

gh*="T" :gl*="A" :t*=i* (d) : i* (d)= , ’ n 

370 IF a=b(n) THEN n=n+l:m=m—1sGOTO 400 

380 GOTO 400 

390 d=PEEK(a):GOSUB 650 

400 v=d:GOSUB 2740 

410 dh*=h*:dl*=l* 

420 IF hl>=10 THEN GOTO 560 

430 hl*=STR*(hl):hl*=MID*(hl*,2,1) 

440 IF h2>=10 THEN GOTO 570 

450 h2*=STR*(h2):h2*=MID*(h2*,2,1) 

460 IF 11>=10 THEN GOTO 580 

470 11*=STR*(11):11*=MID*(11*,2,1> 

480 IF 12>=10 THEN GOTO 590 

490 12*=STR*(12):12*=MID*(12*,2,1) 

500 REM Ausgabe des disassemblierten 
Speicherbereichs 


- 173 - 



510 qt=qt+l:IF qt>105 THEN qt=0:FOR qi = l 
TO 9sPRINT #drubi:NEXT qisGOSUB 3400:sy 
=sy+lsPRINT ttdrubi,TAB(30) "Seite";sys PR 
INT #drubisGOTO 510 ELSE PRINT #drubi,q; 
LEN<dh«+dl«+eh«+el«+fh«+fl«+gh«+gl«>/2; M 
Bytes"; TAB US) ; 

520 PRINT #drubi ? USING " !!!!";" %hl« 

,h2$,11$,12$;sPRINT #drubi," 

;sPRINT ttdrubi,USING ” !!!!!!!!"; M %dh«, 
dl«,eh«,el«,fh«,fl«,gh«,gl*;sPRINT #drub 
i,TAB(50);i«(d) 

530 a=a+l:c=c+l:IF a>=b+l THEN GOTO 600 
540 IF gh$ =,, T" THEN i«(d)=t« 

550 GOTO 280 

560 x=h1—10+65: h1«=CHR« <x > : GOTO 440 
570 x=h2-10+65:h2«=CHR« (>:) sGOTO 460 
580 x=l1-10+65:1l«=CHR«<x):GOTO 480 
590 >; = 12—10+65:12«=CHR« (x ) : GOTO 510 
600 PK IN I:PK IN I "# * Ausdruck fertig * 
¥ " 

610 REM Frage nach eventuellem 
Neustart 

620 PRINT:INPUT "Nochmal <J/ ) ";b«:b«=L 

EFT«(UPPER«(b«),1) 

630 IF b«="J" THEN RUN 
640 END 

650 IF d<64 OR d>127 THEN GOTO 710 
660 IF d=l18 THEN RETURN 
670 dh=INT(d/16):dl=d—dh*16 
680 g=dl AND 7:f=(<d AND 56)/8) 

690 i«(d)="LD "+j«<f)+"," 

700 i«(d)=i«(d)+j«(g):GOSUB 3380:RETURN 
710 IF d<128 OR d>191 THEN GOTO 830 
720 dh=INT(d/16):dl=d— <dh*16) 

730 g=dl AND 7:f=C(d AND 120)/8) 


740 IF f=0 THEN i«(d)="ADD A," 

750 IF f=l THEN i«Cd)="ADC A, " 

760 IF f=2 THEN i«(d)="SUB 
770 IF f=3 THEN i«<d)="SBC A, " 

780 IF f=4 THEN i«(d)="AND 
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790 IF *=5 THEN i*(d>=”XOR 

800 IF f=6 THEN i*<d>= n OR 

810 IF *=7 THEN i*(d)="CP 

820 i$(d)=i*<d>+j$<g)sGOSUB 3380sRETURN 

830 IF bl(d)=1 THEN GDTO 880 

840 IF bl<d)=2 THEN GOTO 890 

850 IF bl Cd)=3 THEN GOTO 900 

860 IF bl<d>=4 THEN GOTO 1770 

870 IF d=221 OR d=253 THEN GOTO 2220 

880 GOSUB 3380 s RETURN 

890 a=a+lsz=PEEK(a> sGOTO 910 

900 a=a+lsz=PEEK<a)sa=a+lsz1=PEEK<a) 

910 v=z s GOSUB 2740seh*=h$:el$=1* 

920 IF bl(d)=3 THEN GOTO 940 

930 GOSUB 3390 s GOTO 950 

940 v =zl:GOSUB 2740sfh*=h*sfl*=1* 

950 p1$=*h*+f1$+eh*+el % :p2*=eh*+el*s gh*= 
11 

960 f=d AND 7sg=d AND 56sg=g/8 

970 IF f =6 AND <d AND 192)=0 THEN GOTO 1 


980 IF f=2 AND (d AND 192)=192 THEN GOTO 
1260 

990 IF f=4 THEN GOTO 1270 

1000 IF f=0 AND (g<>2) THEN GOTO 1240 


1010 i<(33)="LD 
1020 i*(34)="LD 
1030 i*<50)="LD 
1040 i* (205)="CALL 
1050 1♦(195)= n JP 
1060 i$(58)="LD 
1070 i*(254)="CP 
1080 i*<42)="LD 
1090 i♦(49)= H LD 
1100 i*<17>="LD 
1110 i♦(16)="DJNZ 
1120 i*<l)= M LD 
1130 i*<19B)="ADD 
1140 i $ <206)="ADC 
1150 i*<211)= n 0UT 


HL,"+pl* 
( n +pl*+ M ),HL" 
( ,, +pl*+ M ) ,A" 
"+pl* 

"+pl* 

A, ( ,, +pl*+"> M 

"+p2* 

HL,<"+pl*+ M > 1 
SP,"+pl* 

DE,"+pl$ 

"+p2$ 

BC,"+pl* 

A,"+p2* 

A,"+p2^ 
,, +p2$+" , A" 
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1160 i*(214)="SUB "+p2* 

1170 i$(219)="IN A, ,, +p2* 

1180 i*(222)=*'SBC A s "+p2* 

1190 i % (230) = 11 AND " +p2* 

1200 i % (238)="XOR M +p2* 

1210 i$ (246) =,, OR "+p2* 

1220 RETURN 

1230 i $ (d) = ,, LD n + j*(g)+% "+p2*:RE 

TURN 

1240 IF g=3 THEN i*(d)= n JR "+p2*= 

RETURN 

1250 g=g-4:i*(d)="JR " +s* (g ) +' V + 

p2*sRETURN 

1260 i*(d)="JP ,, +5$(g)+% ,, +pl$:RE 

TURN 

1270 i $ (d)= n CALL "+s*(g)+","-t-pl*:RE 

TURN 

1280 FÜR 5=0 TO 63:bl(s)=l:NEXT s 
1290 FÜR s=192 TD 255=bl(s)=1sNEXT s 
1300 bl(118)=1sbl(6)=2:bl(14)=2:bl<16)=2 
:bl<22)=2sbl<24>=2:bl(30)=2sbl<32)=2sbl( 
38)=2:bl (40)=2= bl(46)=2:bl <48)=2:bl(54) = 
2:bl(56)=2 

1310 bl(62)=2:bl<198)=2=bl(206)=2:bl(211 
)=2:bl(214)=2:bl(219)=2:bl(222)=2=bl(230 
)=2 s b1 (238)=2:bl(246)=2:bl(254)=2 
1320 bl(1)=3= bl(17)=3= bl (33)=3:bl(34)=3: 
bl(42)=3:bl(49)=3:bl(50)=3sbl(5S)=3:bl(1 
94)=3 = bl(195)=3:bl(196)=3:bl (202)=3:bl(2 
04)=3:bl(205)=3= bl (210>=3sbl(212)=3:bl (2 
18)=3:bl(220)=3 

1330 bl(226)=3:bl(228)=3=bl(234)=3=bl(23 
6)=3:bl(242)=3:bl(244)=3:bl(250)=3:bl(25 

2) =3:bl(203)=3:bl(237)=3:bl(221)=0:bl(25 

3) =3 

1340 j$(0) = ,, B": j* (l)= n C" = j* (2)= ,, D ,, s j*(3) 
= M E ,, = j* (4)= ,, H ,, s j* (5)= ,, L M 
1350 j*(6)= n (HL)"sj$(7)= M A" 
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„“IH 330..= (£fr) 0SST 

..d33.i= (£9) $ T : ..dS 3 

30 .. = (6S) tT*..dS‘3H aaü..= (Z£) * T 0fr£T 

,.33S ..= (££)*! 

:„dS 3NI.. = (I£)*TS..3d3..= (Z.fr)*T 0££T 

,.3H 33a..= (£fr)*TS.,“l 

H‘3H aaW..= (Tfr)*T:.iööa,.= (6£)*T 0Z£I 
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„(30) ‘ü a“l„=<9Z)*T!„3 

a‘3H aa«..=(£Z)*T:..yna..= (£Z)*T 00 s t 

„30 3N 

1.. = (6T)*T = ..W‘ (30) a"l..= (BI)*I 06frl 

„ü 

3 dd..= (£T)*T5..3a 33a..= (TT)*T 08frl 

„(38) ‘ü 
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W * (38) an..= (Z)*T s..dON..= (0)*T 0£frl 

.,ino„=<£> 
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..a‘ö..= (£)*°s 
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(Z)*»“s.. 0„=(0)* u,s ~Ih=(T )*!*.. N..= (0) *1 0ZfrT 

ii dS ii = ( Z ) 

*us 1I -iH..= (£)* us ..3H..= (fr) *u:„3a..= (£) 0TfrI 

..3a..= (Z)*u: 11 3a.,= (T> 
*us„3a..=(0)*us„ ‘"IH 3aüi.= (Z.)* b 00fr I 

.. *"IH 

3aü..= (S)*ds„‘3H 38 S..= (fr)* b 06£T 

„ ‘"IH 

3aü..= (£)*d:„‘3H 3SS..= (Z)* b 08£T 

.. ‘"IH 

3 aü..= (T)*<!*..‘3H 388..= (0)*d 0Z£I 

..W..= (Z)* 

s s i.d..= (9) *s : ii 3d••=(£) *s s „0d..= (fr) * s ! ..3..= (£ 
> *s s ,,3N..= (Z) *s sZ ..= ( I ) *s s „ ZN..= (0) * s 09£I 



1560 i*(192)="RET 


NZ":i$(197)= "PUS 


H BC" 

1570 i*(199)="RST 0":i*(200)="RET 

Z " : i $ (207) = "RST 8" 

1580 i* (208)="RET NC": i $ (209)="POP 

DE" 

1590 i*(213)="PUSH DE"si*(215)="RST 

10H" 

1600 i*(216)="RET C":i*(223)="RST 

18H" 

1610 i$(224)="RET PO"s1*(227)="EX 

(SP),HL" 

1620 i*(231)="RST 20H M :i$(232)="RE 

T PE" 

1630 i$(233)="JP (HL)":i*(235)="E 

X DE,HL" 

1640 i*(239)="RST 2BH":i*(240)="RE 

T P" 

1650 i$(201)="RET" 

1660 1*(241)="POP AF":i*(243)="DI" 

:i$(245)="PUSH AF" 

1670 1*(247)="RST 30H":i*(248> = " RE 

T M":i$(251)="EI" 

1680 i*(249)="LD SP,HL"si % (255)=" 

RST 3SH" 

1690 i*(197)="PUSH BC" 

1700 i*(193)="POP BC":i$(229)="PUS 

H HL" 

1710 i*(225)="POP HL" 

1720 i*(217)="EXX" 

1730 i$(118)="HALT" 

1740 1=0:FOR d=5 TO 45 STEP S:i$(d)="DEC 
"+jS(l):l=l+l:NEXT d 

1750 1=0:FOR d=4 TO 44 STEP Ssi*(d)="INC 
"+j*(l):l=l+l:NEXT d 
1760 i*(60)="INC A":i*(61)="DEC 

A"s GOTO 90 

1770 IF d=203 THEN GOTO 1790 
1780 IF d=237 THEN GOTO 2950 
1790 a=a+l:z=FEEK(a> 
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1800 eh=INT(z/16) sel=z-@h*16sg=el AND 7 
1810 f =INT < (el AND 8) /B) : ■f=f+ <eh*2) sGOSU 
B 1830 

1820 GOTO 1980 

1830 IF f=0 THEN i*<d)="RLC "sRETU 

RN 

1840 IF f=1 THEN i*(d)="RRC "sRETU 

RN 

1850 IF f=2 THEN i*(d)="RL "sRETU 

RN 

1860 IF -f =3 THEN i*(d>="RR "sRETU 

RN 

1870 IF f=4 THEN i*(d>="SLA "sRETU 

RN 

1880 IF -f=5 THEN i*(d)="SRA "sRETU 

RN 

1890 IF f=7 THEN i*<d>="SRL "sRETU 

RN 

1900 IF -f >=8 AND f <=15 THEN GOTO 1940 
1910 IF f >=16 AND f <=23 THEN GOTO 1960 
1920 f=f AND 7sf*=CHR*(f+48) 

1930 i*(d)="SET "+T*+"sRETURN 

1940 -f=f AND 7:-f*=CHR* (f+48) 

1950 i*(d)="BIT "sRETURN 

1960 f=f AND 7sf*=CHR* (T+48) 

1970 i*(d)="RES "+f*+","sRETURN 

1980 IF eh>=10 THEN GOTO 2030 

1990 eh*=STR*(eh)seh*=MID*(eh*,2,1) 

2000 IF el>=10 THEN GOTO 2040 
2010 el*=STR*(el):el*=MID*(el*,2,1) 

2020 GOSUB 3390 si*(d)=i*<d>+j*<g>sRETURN 
2030 >:=eh+55s eh*=CHR* (x ) : GOTO 2000 
2040 >:=el+55:el*=CHR*(x> : GOTO 2020 
2050 IF d AND 7=5 THEN GOTO 20B0 
2060 IF d AND 7=4 THEN GOTO 2080 
2070 GOTO 880 
2080 1 =d AND 56 
2090 g=l/8 

2100 IF d AND 7=5 THEN i*(d)="DEC 
"+j*(g):GOTO 2120 
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2110 i*(d)="INC 


+j*<g> 


2120 GÜSUB 3380:RETURN 

2130 REM Unterprogramm zum Ausschiiessen 
des Disassemblierens von 
bestimmten Speicherbereieben 

2140 n=l 

2150 INPUT "Startadr.=";a(n) 

2160 INPUT "Endadr.=";b(n) 

2170 IF a(n)<a OR b(n)>b THEN GOTO 2150 
2180 INPUT "Noch ein Teil <J/ ) ";v$ 

2190 v*=LEFT*(UPPER*(v*)„1) 

2200 IF v*="J" THEN n=n+l:GOTO 2150 
2210 m=n:n=l:RETURN 

2220 IF d=221 THEN v*="IX":GOTO 2240 
2230 v*="IY" 

2240 a=a+l:z=PEEK(a> 

2250 IF z=203 THEN GOTO 2660 

2260 IF z >=70 AND z< = 190 THEN GOTO 2810 

2270 IF z=33 OR z=34 OR z-42 THEN GOTO 2 

430 

2280 TF z=52 OR z=53 THEN GOTO 2530 

2290 IF z=54 THEN GOTO 2590 

2300 v=z:GDSUB 2740:eh*=h*:el*=1*:GOSUB 


3390 

2310 IF z=9 THEN i*(d)="ADD "+v*+ 

" ? BC" 

2320 IF z=25 THEN i*(d)="ADD "+v*+ 

" , DE " 

2330 IF z=35 THEN i*(d)="INC "+v* 

2340 IF z=41 THEN i*<d)="ADD "+v*+ 

”,"+v* 

2350 IF z=43 THEN i*(d>="DEC "+v* 

2360 IF z=57 THEN i*(d)="ADD "+v*+ 

" ,SP" 

2370 IF z=225 THEN i*(d>="POP "+v* 

2380 IF z=227 THEN i*(d)="EX <SP) 

? "+v* 

2390 IF z=229 THEN i*<d)='T>USH "+v* 

2400 IF z=233 THEN i*(d)="JP <"+v 

*+■■} " 


- 160 - 



SP 


2410 IF z =249 THEN i*<d)="LD 
+v* 

2420 RETURN 
2430 v=z:GOSUB 2740 
2440 eh*=h*sel*=l* 

2450 a=a+l:zl=PEEK<a>:v=zl:GOSUB 2740 
2460 f h*=h*:-f l*=l*:a=a+l 
2470 z1=PEEK<a):v=z1sGOSUB 2740 
2480 gh*=h*:gl*=l* 

2490 IF z =33 THEN i*(d) = "LD "+v*+ 

", "+gh*+gl*+-fh*+-f 1* 

2500 IF z =34 THEN i*(d)="LD <"+gh 

*+gl*+fh*+fl*+ M ),“+v* 

2510 IF z=42 THEN i*<d)="LD "+v*+ 

", < ,, +gh*+gl*+fh*+Fl*+") " 

2520 RETURN 

2530 v=z:GOSUB 2740:eh*=h*:el*=l* 

2540 a=a+lszl=PEEK<a):v=zl:GOSUB 2740 
2550 -f h*=h*s +1 *=1 *s gh*=" " ! gl *=" " 

2560 IF z=52 THEN i*<d)="INC <"+v 

*+"+"+fh$+f1*+")“ 

2570 IF z=53 THEN it(d)="DEC ("+v 

t+"+”+fh*+f1*+")” 

2580 RETURN 

2590 v=z:GOSUB 2740: eh$=h*:elt=l* 

2600 a=a+l:zl=PEEK<a):v=z1:GOSUB 2740 
2610 Fh*=h*:fl*=l*:a=a+1 
2620 z1=PEEK< a):v=z1:GOSUB 2740 
2630 gh$=h*:gl*=l* 

2640 i4 <d)="LD (1*+ 

") , "+gh$+gl* 

2650 RETURN 

2660 a=a+l:eh*=CHR*<67>:el*=CHR*<66) 

2670 v=PEEK(a):GOSUB 2740 
2680 fh«=h*:f1*=1* 

2690 a=a+l:z2=PEEK<a>:o=z2 AND 248:o=o/8 
2700 q*=” ("+v*+ ,, + ,, +Th*+f lt+" ) " 

2710 f=o:GOSUB 1830 
2720 i$<d)=i*<d)+q* 
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2730 v=z2:GOSUB 2740:gh*=h1>:gl*=1*:RETUR 
N 

2740 h=INT<v/16>:l=v-(h*16> 

2750 IF h>=10 GOTO 2790 

2760 h*=STR*(h):h*=MID*(h$,2,1) 

2770 IF 1>=10 THEN GOTO 2800 

2780 1*=STR*(1) 5l*=riID*(l« f 2 f 1) : RETURN 

2790 >: l=h+55: h*=CHR* <>; 1 > : GOTO 2770 

2800 xl=l+55:l*=CHR*<xl>:RETURN 

2810 v=z:GOSUB 2740:eh*=h*:el*=l$:gh*="" 

:gl $= MH 

2820 a=a+l:zl=PEEK<a) 

2830 v=z1:GOSUB 2740:fh*=h*:f1*=1* 

2840 IF z=126 THEN i*<d>="LD A,<" 

+v*+ ,, + ,, +fh*+-fl*+ ,, > ": RETURN 

2850 p=z AND 240 

2860 IF p=l12 THEN GOTO 2900 

2870 IF p>=12B THEN GOTO 2920 

2880 p=z AND 56:p=p/8:GOSUB 3290 

2890 i$(d)= M LD ,i +g*+" ? < ,, +v*+" + l, +f 

h«+-fl«+ n ) M s RETURN 

2900 p=z AND 7:GOSUB 3290 

2910 i$(d)= M LD ("+v*+"+"+fh % 1 *+ 

" ), M +g«:RETURN 

2920 p=z AND 56:p=p/8:GOSUB 3290 
2930 i$(d)=i$<d) +v*+ ,, + "+f h$+-f 1$+" ) ” 

2940 RETURN 

2950 a=a+l:z=PEEK(a):v=z:GOSUB 2740:eh*= 
h*:el*=l* 

2960 IF z=67 OR z=75 OR z=83 OR z=91 OR 

z = l15 OR z=l23 THEN GOTO 3200 

2970 GOSUB 3390:f=z AND 248:g=z AND 7 

2980 IF -f = 160 THEN GOTO 3160 

2990 IF f = 168 THEN GOTO 3170 

3000 IF f = 176 THEN GOTO 3180 

3010 IF f=184 THEN GOTO 3190 

3020 -f=z AND 56:f=f/8:g=z AND 7 

3030 IF f=6 THEN i*(d)= M SBC HL.SP" 

:RETURN 
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3040 IF g=0 THEN i*(d)="IN 
)+",<C>RETURN 

3050 IF g=l THEN i*(d)="OUT (C),"+ 

):RETURN 

3060 IF g=2 THEN i * (d) =p* <-f ) +n* <-f ) s RETUR 
N 

3070 IF g=4 THEN i*(d)="NEG":RETURN 
3080 IF g=5 THEN i * < d) = "RET"+I*(F>:RETUR 
N 

3090 IF g=6 THEN i*(d)="IM "+m*<f)sRETUR 
N 

3100 IF g<>7 THEN i*(d)="* * *"sRETURN 
3110 IF f<=3 THEN GOTO 3150 
3120 IF f =4 THEN i*<d)="RRD":RETURN 
3130 IF f=5 THEN i* <d)="RLD":RETURN 
3140 GOTO 3100 

3150 i*<d)="LD "+o* (-f) :RETURN 

3160 i ♦ (d) =q*(g)+"I" :RETURN 

3170 i * <d) =q* <g> +“l>“ : RETURN 

3160 i*(d)=q*<g)+"IR":RETURN 

3190 i*(d)=q*(g)+"DR":RETURN 

3200 a=a+l:z1=PEEK <a>:v=z1:GOSUB 2740sfh 

*=h$:f1*=1* 

3210 a=a+l:zl=PEEK<a>:v=zl:GOSUB 2740:gh 


$=h$:gl$=l* 

3220 gg$=gh$+g1$+fh$+f1t 

3230 IF z=67 THEN i*<d)="LD <”+gg 

*+"), BC": RETURN 

3240 IF z=75 THEN i*(d)="LD BC,C" 

+gg*+">RETURN 

3250 IF z=S3 THEN i*<d)="LD ( ,,+ gg 

*+">,DE”:RETURN 

3260 IF z=91 THEN i*<d)="LD DE,(" 

+gg*+”)RETURN 

3270 IF z=l15 THEN i*(d)=“LD (“+g 

g*+"),SP":RETURN 

3280 IF z = 123 THEN i*(d)="LD SP, ( 

+gg*+ M ) M s RETURN 


3290 IF p=0 THEN g*= M B":i$(d)= “ADD 
A, <" 
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3300 

IF 

p=l 

THEN 

(d)="ADC 

A, ( M 

3310 

ii 

IF 

p=2 

THEN 

g^= ,, D":i$ <d) ="SUB 

3320 

, < n 
3330 

ji 

IF 

p=3 

THEN 

g*= ,, E":i* (d)= ,, SBC 

IF 

p=4 

THEN 

g*= ,, H":i*(d)="AND 

3340 

ii 

IF 

p=5 

THEN 

g*= ,l L":i*<d)= ,, XOR 

3350 

(" 

3360 

IF 

p=6 

THEN 

(d)= ,, OR 

IF 

p=7 

THEN 

g$="A":l$(d)="CP 


( 

A 

< 

< 


3370 RETURN 

3380 eh*= M " s el S= M M : -F h*= ,n, :fl$= 1111 : gh*= " " : 
gl*= n RETURN 

3390 f h*= M ”: *f 1 $= " " : gh*= "":gl*= H " : RETURN 

3400 PRINT #drubi:RETURN 

3410 PRINT #drubi:qt=0:sy=l 

3420 PRINT ttdrubisRETURN 

3430 REM Ende der 

Unterprogrammebliothek zur 
Erzeugung des Assemblercodes 
3440 REM Ueberpruefung der Anzahl der zu 
disassemblierenden Bytes 
(hexadezimale Eingabe) in den 
DATA—Zei1en 

3450 ON ERROR GOTO 3540:FOR zaehler1=437 
76 TO 65535:READ a$:NEXT zaehlerl 
3460 REM Eigentliches Einlesen der 
Bytes in der DATA—Zeile in 
den Speicher ab 43776 

3470 RESTORE:FOR m=43776 TO zaehlerl-1 
3480 READ a* 

3490 a=VAL( ,, &h ,, +a*> 

3500 PÜKE m,a 

3510 NEXT m: POKE m,ScC9 

3520 RETURN 

3530 DATA 3e,04,06,07,80,32,00,7d 
3540 RESUME 3470 
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Anhang 

Die Tokens des CPC464 (siehe 'Speicher 1' bis 'Speicher 5') 


32 bis 126: normaler ASCII-Zeichensatz (s.Handbuch An.III,S.l) 


128 

AFTER 

129 

AUTO 

130 

BORDER 

131 

CALL 

132 

CAT 

133 

CHAIN 

134 

CLEAR 

135 

CLG 

136 

CLOSEIN 

137 

CLOSEOUT 

138 

CLS 

139 

CONT 

140 

DATA 

141 

DEF 

142 

DEFINT 

143 

DEFREAL 

144 

DEFSTR 

145 

DEG 

146 

DELETE 

147 

DIM 

148 

DRAW 

149 

DRAWR 

150 

EDIT 

151 

ELSE 

152 

END 

153 

ENT 

154 

ENV 

155 

ERASE 

156 

ERROR 

157 

EVERY 

158 

FOR 

159 

GOSUB 

160 

GOTO 

161 

IF 

162 

INK 

163 

INPUT 

164 

KEY 

165 

LET 

166 

LINE 

167 

LIST 

168 

LOAD 

169 

LOCATE 

170 

MEMORY 

171 

MERGE 

172 

MID$ 

173 

MODE 

174 

MOVE 

175 

MOVER 

176 

NEXT 

177 

NEW 

178 

ON 

179 

ON BREAK 

180 

ON ERROR 

GOTO 

0 

181 

ON SQ 

182 

OPENIN 

183 

OPENOUT 

184 

ORIGIN 

185 

OUT 

186 

PAPER 

187 

PEN 

188 

PLOT 

189 

PLOTR 

190 

POKE 

191 

PRINT 

192 

1 (nicht 

ASCII 

, sondern 

Befehl REM ) 

193 

RAD 

194 

RANDOMIZE 

195 

READ 

196 

RELEASE 

197 

REM 

198 

RENUM 

199 

RESTORE 

200 

RESUME 

201 

RETURN 

202 

RUN 

203 

SAVE 

204 

SOUND 

205 

SPEED 

206 

STOP 

207 

SYMBOL 

208 

TAG 

209 

TAGOFF 

210 

TROFF 

211 

TRON 

212 

WAIT 

213 

WEND 

214 

WHILE 

215 

WIDTH 

216 

WINDOW 

217 

WRITE 

218 

ZONE 

219 

DI 

220 

EI 


221 bis 226: keine direkt sichtbaren Tokens 

227 ERL 228 FN 229 SPC 230 STEP 

231 SWAP 232 und 233: siehe 221 234 TAB 

235 THEN 236 TO 237 USING 238 > (Rechnung 

239 = (Rech.) 240> = (Re.) 241 < (Rech.) 242 <> (Rechnung 

243<= (Re.) 244 + (Re.) 245 - (Rech.) 246 * (Rechnung 

247 / (Rech.) 248 ^ (Re.) 249 V (Rech.) 250 AND 

251 MOD 252 OR 253 XOR 254 NOT 

Mit dem Vorzeichen '255' entstehen folgende Befehlswörter: 


0 

ABS 

1 

ASC 

2 

ATN 

3 

CHR$ 

4 

CINT 

5 

COS 

6 

CREAL 

7 

EXP 

8 

FIX 

9 

FRE 

10 

INKEY 

11 

INP 

12 

INT 

13 

JOY 

14 

LEN 

15 

LOG 

16 

L0G10 

17 

LOWER$ 

18 

PEEK 

19 

REMAIN 

20 

SGN 

21 

SIN 

22 

SPACE$ 

23 

SQ 

24 

SQR 

25 

STR$ 

26 

TAN 

27 

UNT 

28 

UPPERS 

29 

VAL 





30 bis 63: 

keine < 

direkt sichtbaren Tokens 



64 

EOF 

65 

ERR 

66 

HIMEM 

67 

INKEY$ 

68 

PI 

69 

RND 

70 

TIME 

71 

XPOS 

72 

YPOS 

73 

bis 112 : 

keine direkt sichtaren 

Tokens 

113 

BIN$ 

114 

DEC$ 

115 

HEX$ 

116 

INSTR 

117 

LEFT$ 

118 

MAX 

119 

MIN 

120 

POS 

121 

RIGHT$ 

122 

ROUND 

123 

STRING$ 

124 

TEST 

125 

TESTR 

126 

nicht 

sichtbar 


127 

VPOS 
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Die Neuen Bücher von DATA BECKER 



Mit dem neuen DATA BECKER Einateiger- 
buch den brandneuen CRC 464 kennen- 
lernen. 

Wer sich für den brandneuen Schneider- 
Homecomputer CPC 464 entschieden hat, 
findet mit dem DATA BECKER Buch 
„CPC 464 für Einsteiger“ gleich den 
richtigen Start. Neben den wichtigsten Hin¬ 
weisen über Handhabung und Anschluß¬ 
möglichkeiten bringt das Buch erste Hilfen 
für eigene Programme auf dem CPC 464. 
Zahlreiche Abbildungen und Bildschirm¬ 
fotos ergänzen den Text. Das ideale Buch 
für jeden, der mit dem CPC 464 das 
Computern beginnen will. 

CPC 464 FÜR EINSTEIGER, 1984, 
über 200 Seiten, DM 29,-. 


Der CPC 464 ist nicht nur zum Spielen dal 

Das neue Schulbuch zum CPC 464 von 
Professor Voß enthält, didaktisch gut auf¬ 
bereitet, viele interessante Problem- 
lösungs- und Lernprogramme (quadra¬ 
tische Gleichungen, exponentielles 
Wachstum, Geschichtszahlen, engl. Voka¬ 
beln lernen und vieles mehr). Dieses Buch 
ist nicht nur für Schüler bestens geeignet, 
sondern für jeden, der in die Programmie¬ 
rung wissenschaftlicher Probleme einstei¬ 
gen will. 

DAS SCHULBUCH ZUM CPC 464, 1984, 
ca. 380 Seiten, DM 49,- 


Vlele Tlpa und Tricks rund um den 
CPC 464 

Vom Hardwareaufbau, Betriebssystem, 
Basic-Tokens, Zeichnen mit dem Joystick, 
Anwendungen der Windowtechnologie 
und sehr vielen interessanten Programmen 
wie einer umfangreichen Dateiverwaltung, 
Soundeditor, komfortablen Zeichengene' 
rator bis zu kompletten Listings spannen¬ 
der Spiele bietet das Buch viele Anre¬ 
gungen und wichtige Hilfen. Diese riesige 
Fundgrube sollte jeder CPC 464-Besitzer 
haben! 

CPC 464 TIPS & TRICKS, 1984, 
über 250 Seiten, DM 39,- 

















































































DAS STEHT DRIN: 

Dieses Buch enthält Spitzenprogramme, vom Dis¬ 
assembler bis zum Sporttabellenprogramm. Mit span¬ 
nenden Superspielen und kompletten Anwendungs¬ 
programmen. 

Aus dem Inhalt: 

- Hexdump 

- Grafikeditor 

- Soundeditor 

- Deutsche Umlaute 

- Mathematikzeichensatz 

- Ausführliche Fehlermeldungen 

- Variablenreferenzliste 

- Kalender 

- Disassembler 

- Langspielplattenverwaltung 

- Texteditor 

- Codeknacker 

- Zahlsystemumrechner 


UND GESCHRIEBEN HAT DIESES BUCH: 

Rainer Lüers ist Computer-Fachtrainer bei einer gro¬ 
ßen Kaufhauskette und erfahrener Autor mehrerer 
EDV-Bücher. 
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